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abstract 

THIS DIAGNOSTIC PROGRAM IS DESIGNED TO BE A COMPREHENSIVE 
CHECK OF THE P DPU/05 AND PDPll/20 PROCESSORS, THE PROGRAM 
EXECUTES EACH INSTRUCTION IN ALL ADDRESS MODES AND INCLUDES 
TESTS FOR TRAPS AND THE TELETYPE INTERRUPT SEQUENCE, THE 
PROGRAM DOES NOT TEST INSTRUCTIONS NOT COMMON TO THE 11/20 
OR 11/09, THE PROGRAM RELOCATES THE TEST CODE THROUGHOUT 
MEMORY 0^2SK • 

REQUIREMENTS 

EQUIPMENT 

PDPll FAMILY CENTRAL PROCESSOR 
OPTIONAL * KWllsL (LINE CLOCK) 

STORAGE 

THE PROGRAM USES ALL OF THE FIRST 4« OF MEMORY (EXCLUDING 
THAT AREA OF MEMORY RESERVED FOR THE LOADERS), 

preliminary programs 

none, HOWEVER, the emt ano trap instruction should be 

VERIFIED BEFORE RUNNING, 

LOADING and STARTING procedure: 

LOAD PROGRAM using ABS LOADER 

IF THE CONSOLE TTY IS A SERIAL LA3SJ OR A VT09 FILLER 
CHARACTERS MAY BE REQUIRED, DEPOSIT INTO LOCATION 1002 
(FILLS) A 4400, 

LOAD ADDRESS = 200 
PRESS START 

SET OPERATING SWITCHES 

PASS COUNT IS PRINTED AFTER EACH PASS (SEE SEC 6', 4) 

•’D2QKC DONE** I S PRINTED WHEN DONE (SEE SEC 7,1) 

SWITCH SETTINGS 

SW15 HALT ON ERROR/,, THIS SWITCH WHEN SET WILL HALT THE 
PROCESSOR WHEN AN ERROR IS DETECTED. THE CC+2 AND THE 
CURRENT STATUS AT THE TIME OF THE ERROR IS STORED ON 
THE STACK (R6)*, J Pi THIS SWITCH IS SET BEFORE AN ERROR 
IS DETECTED THE PROGRAM HALTS AS DESCRIBED ABOVE, THE 
PROGRAM MAY BE HALTED AFTER THE ERROR TYPEQUT OCCURS 
BY SETTING SW15 AFTER THE TYPEOUT BEGINS, 

SW14 LOOP SUBTEST,;. THIS SWITCH WHEN SET LOOPS THE 
CURRENT SUBTESt RUNNING REGARDLESS OF ERROR, 

SW13 INHIBIT ERROR PRINTOUT * THIS SWITCH WHEN SET INHIBITS 
THE ERROR PRINTOUT, 

SW12 INHIBIT RELOCATION,, , THIS SWITCH WHEN SET CAUSES ThI 
PROGRAM TO BE EXECUTED ONLY IN THE FIRST 4K OF MEMORy’, 
THIS SWITCH CANNOT BE SET WHEN THE PROGRAM IS RUNNING, 



PAGE 3 


swii inhibit subtest iteration*/., this switch when set 
inhibits subtest reiteration; normally sach subtest 

IS EXECUTED 8 TIMES BEFORE THE NEXT SUBTEST IS RUN; 
SETTING swn CAUSES EACH TEST TO BE EXECUTED ONCE 
BEFORE STARTING THE 1 , NEXT SUBTEST, 

SW10 RING SELL ON ERROR.., THIS SWITCH WHEN SET WILL RING 
THE BELL WHEN AN ERROR IS DETECTED', 

SW7 INHIBIT ALL BUT ERROR TYPEqUTS/. , ThjS SWITCH W H EN 
RESET (0) INHIBITS THE END OF PASS TyPEOUT (1CNT*XXXX) 
AND THE END OF PROGRAM TYPEOUT (DZGKC donei 

5 f , 0 ERRORS 

IF AN ERROR IS DETECTED THE PROGRAM WILL TRAP TO THE ERROR 
HANDLING ROUTINE (ERROR), IF ENABLED THIS ROUTINE WILL BYTE 
THE PC AND THE PROCESSER STATUS AT THE TIME OF THE ERROR; 
ALSO (IF REQUIRED) THE ORIGINAL PC (WHERE THE PC WaS 
RELOCATED FROM) , 


5;0’,1 ERROR PRINTOUT FORMAT 

iCNTsAAAA PC*BBBBBB PSWsODODDD 
OR 

ICNTsAAAA PCsBBBBBB PSWsODODOD PC RELOCATED FROM CCCCCC 

WHERE* AAAAapASS COUNT 

BBBBBBsPC AT THE TIME OF THE ERROR 
CCCCCCaPC OF THE ORIGINAL CODE RELOCATED 
DDDDDDspSW AT THE: TIME OF THE ERROR', 


5’,t PARITY ERROR DECTECT ION 

IF A PARITY ERROR IS DETECTED THE PROGRAM WILL TYPE A 
message”Parity error** and scan memory for THE PARITY error; 

WHEN THE FAILING ADDRESS IS LOCATED THE PROGRAM WJLL HALT 
WITH THE VALUE OF THE AD0RESS+2 IN R0, 

5.2 ERROR LOOPING 

THE SUBTEST DETECTING THE ERROR MAY BE LOOPED INDEFINITELY 
BY SETTING SW14, SETTING SW13 WILL INHIBIT THE TYPEOUT AND 
ALLOW SCOPING THE FAULTY SIGNAL(S), 

5.3 UNPREDICtED ERRORS 

THE PROGRAM MAY ON OCCASSION DETECT A MEMORY ERROR THE 
RESULTS OF WHICH WERE NOT PREDICTABLE IN WHICH CASE THE 
PROGRAM May BEHAVE UNPREOICTASLY; WHEN THIS HAPPENS THE 
USER MUST RETRACE THE PROGRAM STEPS TO RESOLVE WHERE THE 
ERROR OCCURRED, THE FOLLOWING ITEMS SHOULD 8E CONSIDERED 
AND MAY BE OF USE WHEN RETRACING A FAILURE OF THIS NATURE, 

1, HAUT THE PROGRAM (IF NECESSARY) 
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2, EXAMINE RELR1 

ADDRESS RELRi (1000) CONTAINS THE UNRELOCATED VALUE OF 
THE PC OF THE LAST TEST THAT WAS SUCCESSFULLY EXECUTED, 

3, EXAMINE FACTOR 

ADDRESS FACTOR (1004) CONTAINS THE RELOCATION FACTOR', 

4, EXAMINE ALL LOCATIONS STARTING WITH T*E ADDRESS 
SPECIFIED IN R1/R1UIF PSW BIT11 *0/1) COMPARING THEIR 
CONTENTS WITH THE CONTENTS OF THE CORRESPONDING 
UNRELOCATED CODE (SPECIFIED IN 1006) AS SHOWN IN THE 
LISTING, EXAMINE AND COMPARE UNTIL EITHER A DIFFERENCE 
IN INSTRUCTION U,E,, THE ERROR) OR THE NEXT 'SCOPE* IS 
SEEN', 

IF The PROGRAM TRAPS and HALTS AT A TRAP/INT^RRUPT VeCTQR+2 
( NOTE l the PDP*ll/45 wHL DlSPLAy THE ADDRESS OF THE HALT+2 
I,E. , A FALSE TRAP TO 4 WILL DISPLAY 10)', 

1A, EXAMINE THE STACK (R6) 

the top word on the stack contains the pc at the time of 

THE trap', if THE Pq IS GREATER THAN 20000, THEN 
PA, EXAMINE LOCATION 1002 (FACTOR) 

THIS LOCATION CONTAINS THE PROGRAM RELOCATION FACTOR 
WHICH, WHEN SUBTRACTED FROM THE PC GIVES T2E PC OF THE 
ORIGINAL code, 


SUBROUTINE ABSTRACTS 
SCOPEA 

THE SCOPEA ROUTINE IS ENTERED By THE SCOPE (EMT) INSTRUCTION 
AND IS EXECUTED AT THE START OF EACH SUBTEST, THE ROUTINE 
MONITORS SW14, SWU AND $W 8 AND TAKES APPROPRIATE ACTION, 
ALSO, THIS ROUTINE STORES IN Rl/Rll THE FIRST ADDRESS OF THE 
SUBTEST BEING ENTERED, 

ERROR 

THE ERROR ROUTINE IS ENTERED By THE MLT (TRAP) INSTRUCTION, 

and is executed when a predictable error is detected, this 

ROUTINE MONITORS SW15, SW13, AND SWl0, 

reloc 

THE RELOC ROUTINE IS ENTERED By A MOV RELOC, PC 

INSTRUCTION’, THIS ROUTINE RELOCATES THE PROGRAM CODE 

THROUGHOUT MEMORY* AND t JUMPS' TO THE RELOCATED CODE AFTER 
IT HAS BEEN MOVED SUCCESSFULLY, IF THE CODE CANNOT BE 
RELOCATED (BECUASE OF INSUFFICIENT MEMORY) THE ROUTINE 
'JUMPS' TO THE NEXT SECTION OF UNRELOCATED PROGRAM CODE, 
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THE CODE MOVED IS LESS THAN IK (4000) ByTES)', Af THE START 
AND END OF EACH SECTION OF CODE TO BE MOVED ARE A SECTION OF 
CODE WHICH ESTABLISHES THE FIRST ADDRESS OF THE CODE TO BE 
MOVED, AND SETS A SCOPE POINTER (Rl/Rll) AND, ALSO A SECTION 
WHICH ESTABLISHES THE .AST ADDRESS AND * JUMPS' TO THE 
RELOCATION (RELOC) ROUTINE, EACH SECTION PJ CODE IS 
IDENTIFIED AS SHOWN BELOW } 

1 0000000000000F J RST ADDRESS TO BE RELOCATED000000000 
CODE TO BE MOVED AND EXECUTED 

J 00000000000 00L AST ADDRESS 0^ CODE TO BE RELOCATED 00000000 

. ' ■ /""% 

THE RELOC ROUTINE DOES NOT RELOCATE PROGRAM C00| JNTO THE > v 
LAST 1000(8} BYTES OF MEMORY , THUS PRESERVING THE LOADERS, 

6,4 END 

THIS ROUTINE IS ENTERED AT THE COMPLETION OF EACH PASS IT 
SETS UP (LOADS NEW PROCESSOR STATUS) FOR THE NE*T PASS} AND 
PRINTS THE PASS COUNT} 

I C NTs XXX X ^ 

- ■ ; . . . m - 

7*0 MISCELLANEOUS V- 



EXECUTION TIME 

THE EXECUTION TIME IS HIGHLY VARIABLE (DEPENDENT ON 
PROCESSOR, TYPE OF MEMORY, AND AMOUNT Of MEMORY) , HOWEVER, 
WHEN THE PROGRAM IS RUNNING SUCCESSFULLY THERE IS A 
NOTICEABLE * FLICKER* DISPLAYED IN THE CONSOLE LIGHT PATTERN 
THE * FLICKER* WILL DIM WHEN *T< SIT TRAP PASSES (EVERY ODD 
PASS) ARE RUNNING, THE PROGRAM SHOULD BE RUN FDR A MINIMUM 
OF} 

2 PASSES I C N T *2 11/05 OR 11/20 
SOME TYPICAL TIMES FOLLOW? 



8V0 PROGRAM DESCRIPTION 

THE PROGRAM IS DIVIDED INTO FOUR SECTIONS OF POSITION 
INDEPENDENT RELOCATABLE TEST CODE, EACH SECTION IS 
APPROXIMATELY IK WORDS LONG, (EXCEPT SECTION A)', 


SECTION 0 THIS SECTION TEST THE UNARY INSTRUCTION SET 
EXECUTING EACH UNARY INSTRUCTION IN EACH ADDRESS 
MODE (EXCLUDING UNARY INSTRUCTIONS USING ADDRESS 
MODE 7), 


SECTION 1 THIS SECTION TESTS THE UNARY INSTRUCTIONS USING 
ADDRrSS MODe 7 AnD B iNARYS *N ALL ADDReSS MOD e S 

(Excluding binary ByTE ops using address mode 7)*, \j 

SECTION 2 THIS SECTION TEST Binary byte ops USING address 
MODE 7, JMP| JSR AND PROGRAM TRAP (JQT, TRAP AND 
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EMT) INSTRUCTIONS, 

SECTION A FOLLOWING SECTION 2 IS A ROUTINE TO ASCERTAIN 
WHICH CP THE PROGRAM IS RUNNING ON, THE RESULTS 
ARE USED BY THE FOLLOWING CODE TO CHECK THE 
ADDITIONAL INSTRUCTIONS/FEATURES OF THE 11/40 AND 
11/45, 

SECTION 3 THIS SECTION CHECKS THAT EACH BIT IN THE 

PROCESSOR STATUS WORD (PSW) CAN BE SET CLEARED, 
RESERVED INSTRUCTION, AND ODD ADDRESS TRAPS, 

FOLLOWING SECTION 3 ARE TWO ROUTINES TO CHECK TmE TELETYPE 
PRINTER LOGIC AND A ROUTINE TO START THE KW11-L LINE CLOCK, 
IF THE KWHeC IS AVAILABLE THE PRIORITY ARBITRATION LOGIC IS 

tested, 

after each individual section has been executed the "Reuoc" 
routine will relocate the section throughout ALL MEMORY up 
TO 20K, WHEN the SECTION HAS BEEN RELOCATED AND EXECUTED IN 
ALL MEMORY THE "RELOC" ROUTINE WILL RETURN THE PROGRAM TO 
THE NEXT UNRELOCATED SECTION, 

relocation and execution of all sections throughout all 
memory constitutes a single pass; 

UPON COMPLETION of a *ass of the PROGRAM the PROGRAM 
restarts USING A NEW PROCESSOR STATUS DEPENDING ON THE TYPE 
OF PROCESSOR AND THE PASS COUNT, 


STACK POINTER 

THE STACK POINTER IS SET AT 500', 

NOTE! IF THE PROGRAM IS RUNNING IN EITHER USER OR 
SUPERVISOR MODE (NOT APPLICABLE IF 11/20 OR 11/05) THE 
USER/SUPERVISOR STACK POINTER IS SET TO 500 AND THE KERNEL 
STACK POINTER IS SET TO 600, THE KERNEL STACK POINTER IS 
USED ONLY FOR THE SCOPE, HLT » TTY, AND KWll«l (IF AVAILABLE 

trap/interupt routines, 


power failure 

a power fail service routine is incorporated in the test; 

WHEN USING THIS PROGRAM THE POWER SHOULD BE TURNED OFF WHEN 
RUNNING to CHECK THE POWER FAIL LOGIC, WHEN THE POWER FAILS 
THE PROGRAM WILL TYPE I 
POWER FAILED 

and RESTART THE PROGRAM AT THE BEGINNING’, (START) 

user defined relocation limits 

THE PROGRAM will REQUEST A LOWER AND UPPER LIMIT FOR 
RELOCATION, THE LIMITS MUST BE BETWEEN 20000 AND 157776, 
THE PROGRAM WILL EXECUTE IN THE LOWER 4K (0917776) AND THE 
LIMITS SPECIFIED', 

THE STARTING ADDRESS IS 204, 
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to RETAIN PREVIOUSLY SPECIFIED limits START at 210, 



OZQKCcrC BASIC II FAMILY INSTRUCTION ExEr, 
02QKCD 


MACYU 271*55) 19*JuL*74 11)40 RASE 1 


000000 

, NLIST SEQiMOiMC 

.LIST ME 

.ABS 

.TITLE FRONT END 
{CONTAINS DEFINITIONS, RE( 

IGENERAL REGISTER ASSjGNM) 
R0»X0 

000001 

RltXl 

000002 

R2»X2 

000003 

R3*X3 

000004 

R4pX4 

000005 

R5*X5 

000006 

SPpX6 

000007 

PC»X7 

000000 

Rl0*%0 

000001 

R11«X1 

000002 

Rl2*X2 

000003 

R13PX3 

000004 

Pl4*%4 

000005 

R15PX5 

000001 

istatus register (psw) sr 

CPI 

000002 

Vp2 

000004 

2*4 

000010 

Np10 

000020 

T *20 

000340 

PRTY7P340 

000300 

PRTY6P300 

000200 

PRTY4*200 

000004 

1 VECTOR ADDRESSES 
ERRVECP4 

000010 

RESVECP10 

000014 

TB)TVEC*14 

000014 

TRTVECP14 

000014 

BPTVECP14 

000020 

IOTVEC*20 

000024 

PFVEC?24 

000030 

EMTVEC*30 

000034 

TRAPVECP34 

000064 

TPVECP64 

000100 

LKVECP100 

000240 

P I RVEC*240 

000244 

FPEVEC*244 

000250 

MMVEC*250 

177776 

{REGISTER ADDRESSES 

PSW* 17777* 

177774 

SLR* 172774 

177772 

PIRQ* 177772 


>C BIT 
IV BIT 
|2 BIT 
IN BIT 
|*T* BIT 

iprioritv Level, i 

(PRIORITY LEVEL 6 
IPRIORITV LEVEL 4 


I ADDRESS OP ERROR VECTOR 
jADQRESS OF RESERVED INST', TRAP VECTOR 
I AOQRESS OF BIT TRAP VECTOR 
| ADDRESS OF 'TRACE* TRAP VECTOR 
I ADDRESS OF 'BREAKPOINT! TRAP VECTOR 
I ADDRESS OF !OT TRAP VECTOR 
IAPDRESS OF POWER FAIL TRAP VECTOR 

I ADDRESS OF EMT VECTOR 

I ADDRESS OF TRAP VECTOR 

iaddress of ttv printer interrupt vector 

| ADDRESS KWlt.L LINE CLOCK I NT', VECTOR 
IADDRESS OF PIRQ VECTOR 
I ADDRESS OF FLOATING POINT INT» VECTOR 
IADDRESS OP MEM MGMT ERROR TRAP VECTOR 


IADDRESS OF STATUS REGISTER 
IADDRESS OF STACK UIMJ T REGISTER 
IADDRESS OF PROGRAM INTERRUPT REQUEST 
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177770 

177546 

177560 

177562 

177564 

177566 

177572 

177570 

177570 

177514 

177516 


UBREAK* 

177770 

IADDRESS 

LKS* 

177546 

IADDRESS 

TKS* 

177560 

{ADDRESS 

TKB* 

172562 

IADDRESS 

TPS* 

177564 

iaddress 

tpb* 

177566 

IAOORESS 

SR0« 

177572 

{ADDRESS 

SWR* 

177570 

{ADDRESS 

DISPLAY* 

*17/570 

(ADDRESS 

LPS* 

177514 

(ADDRESS 

LPB* 

177516 

(ADDRESS 


OF MICRO BREAK REBISTER 
OF KWU*L STATUS REG’, 

OF KEYBOARD CSR 
OF KEYBOARD BUFFER 
OF TELEPRINTER CSR 
OF TELEPRINTER BUFFER 
OF MEM MGMT REGISTER SRB 
OF CONSOL SWITCH REGISTER 
OF CONSOL DISPLAY REGISTER 
OF LINE PRINTER STATUS REG 
OF LINE PRINTER DATA DUFFER 


UNITjAL STACK POINTER SETTING 

000500 STKPTRt 500 j PROGRAM STACK PTR 

000600 KPTRP600 (KERNEL STACK PTR {USED BY KERNEL WHEN 

IPRQGRAM JS RUNNING IN OTHER THAN KERNEL 
IMODE (NOT APPLICABLE TO 11/05, 11/20) 


IMlSCELLANgOUS BIT ASSIGNMENTS 
100000 P I Tl5f 100000 


040000 

BIT14P4000W 

020000 

B JY13*20000 

000400 

BIT8P400 

000100 

B 176*100 

104400 

1 INSTRUCTl^N^aUATgS 

104000 

SCOPEsEMT 


|HLT IS 1 TRAP INST TO THE ERROR ROUTINE 
ISCOPE IS AN EMT TRAP 



000200 


,*200 



000200 

012707 

802866 

MOV 

FSTARTiPC 

(GO GET S LoSER/WPpi? T RELOCATlON BOUNDARY 

000204 

012707 

002160 

MOV 

#SfARTl,PC 

000213 

012707 

002224 

, MOV 

#SiART3,PC 

istart with Last Iypeq boundary limits 




(ROUTINE TO SAVE REGISTERS ON 

THE STACK 




(CALLED BY SAVE 

MACRO OR U8R 

pc.ssavr 

000214 

012667 

300016 

ISiVRs MOV 

{sr)*,is 

ISAVE RETURN PC 

000220 

010546 


MOV 

X5f*(SP) 


000222 

018446 


MOV 

X4i«(SP) 
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000224 

010346 




NQV 

K3»«(SP) 


000226 

310246 




MOV 

X2i*(SP) 


000230 

310146 




MOV 

XH*(SP> 


000232 

010046 




MOV 

X0,«($P) 


000234 

012737 




MOV 

(PC)*, PC 

(RETURN 

000236 

000000 



isi 

0 


1 CONTAINS RETURN ADDRESS 





t routine to restore registers saved on the stack 





1 CALLED 0Y RESTORE MACRO OR JSR 

PCiSRESTR 

000240 

012667 

000016 


SRESTRj 

MOV 

< SP)*iXS 

(SAVE RETURN PC 

000244 

012600 




MOV 

(S2)**X0 


000246 

312601 




MOV 

<S£)*i*l 


000230 

012602 




MOV 

(SC)*,X2 


000232 

312633 




MOV 

(SP)*,X3 


000234 

312604 




MOV 

<SP)**X4 


000236 

012605 




MOV 

(SP)*,X5 


000260 

012707 




MOV 

(PC)*|PC 

IRETURN 

000262 

000000 



isi 

0 


ICONTAINS RETURN ADDRESS 


000610 




,■610 







IPOWEr 

FAIL, SUBROUTINE 


000610 

312737 

000620 

000024 

PDWNI 

MOV 

#PUP,##PFVEC 


000616 

000000 




halt 



000620 

012737 

000610 

000024 

«sr 

UP SUBROUTINE 
MQu #PSu N|*#PFvGG 

IRESTQRE PO W ER FAIL, TRIP To POwER 








(DOWN ROUINE ABOVE 

000626 

312706 

000600 



MOV 

#KPTR,$P 

1 SET STACK PTR 

000632 

005027 



isi 

CLR 

(PS?)* 


000634 

300000 



.WORD 

0 

JKIU TIME 

000636 

305267 

177772 


2Si 

INC 

1$ 


000642 

001375 




BNE 

2S 


000644 

004767 

000362 



JSR 

PG7, PRINT 

(PRINT MESSAGE BEGININE AT FOLLOWING AORS 

000630 

000636 




pfail 


000632 

300137 

002066 



JMP 

•#START 

IRESTART TEST 

000636 

005015 

047520 

042527 

PFAILI 

.ASCIZ 

<15><12>*POWeR FAILeD*<15>«12> 

000664 

320122 

040506 

040111 





000672 

042135 

005015 

000 






000740 




,■740 







INOTEi 

THIS CODE USED ONLY BY THE XQR TESTER; 





I TO USE 

CODE PLACE 776 (BR ,*2) 

'■ IN scopea 

000740 

#12737 

000002 

000006 

roRxoR i 

MOV 

#RT I , ##ERRVEC*2 

I SET T IME OUT TRAP TO RETURN 

000746 

300261 




SEC 


I SET C 

000750 

005737 

103401 

177060 



TST 

»#177060 

I IF A TIME OUT OCCURS THEN WHEN NEXT 
1 INSTRUCTION IS EXECUTED *C f WILL BE SET 
I ANp IF NO TIME OUT 'C i WILL BE CLEARED 


000754 




BCS 

is 

I8RANCH IF *C< SET (TIMED OUT) 

000756 

011601 




MOV 

(SP),R1 

1 ADDRESS Of NEXT SUBTEST TO Rl 

000760 

005037 

300006 


isi 

SIR 

##ERRVEC*2 

IRESTQRE TIME OUT TRAP 

000764 

010116 




. MOV 

Rinsp) 

1 GET RETURN ADDRESS BACK TO SUBTESTS 

000766 

000240 




NOP 



000770 

000002 




rt r 


IRETURN EITHER TO LAST OR NEXT SU0TEST 


FRONT END 
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000776 




,■776 



000776 

000000 



TICKS* 

.word 

0 

iContains clock tick Count 


001000 



,■1000 


001000 

000000 



ICNT* 

0 


ICONtAINs PASS COUNT 

001002 

300000 



SF ILLS 1 

.WORD 

0 

ICONTAINS FILLS COUNT JN ODD BYTE 
1 AND FILLER CHARACTER IN EVEN BYTE 

001004 

000000 



FACTOR! 

0 


ICONTAINS RELOCATION FACTOR 





| SUBTRACT # IN 

FACTOR FROM PC TO GET PC OF ORIGINAL CODE 

001006 

000000 



RELiRlI 

0 


ICONTAINS RELOCATED Rl (THE Rl OF THE 
| ORIGINAL CODE MOVED) 

001010 

000000 



FRSTADI 

.WORD 

0 

ICONTAINS FIRST APRS OF CODE TO BE MOVED 
icontains Lower relocation boundary address 

001012 

000000 



FRSTMEMI .WORD 

0 

301014 

000751 




BR 

FQRXOR 

I8RANCH To XOR TESTER CODE 





1 SCOPE 

(E.MT) SERVISE ROUTINE 






1 THIS ROUTINE 

ALLOWS THE SUBTEST TO BE CONTINUOUSLY LOOPED, ITERATED 





MOR NOT ITERATED) BEFORE BEGINNING NEXT SQBTEST 

001016 

000240 



SCOPE A I 

NOP 



001020 

032766 

004000 

000002 


BIT 

#4000, 2 (SP) 

1 WAS REGISTER SET BIT SET ON TRAP 

001026 

301403 



BED 

2$ 

I BRANCH IF NOT 

001030 

052737 

004000 

177776 


BIS 

#4000,»#PSW 

TRETAJN register set 

001036 

032737 

040000 

177570 

2 si 

BIT 

#40000, MSW’R 

ICHECK BIT 14 (CONTINUOUS LOOP) 

001044 

001416 



SCOPES! 

8EQ 

SCOPED 


001046 

010116 



MOV 

Rl, (SP) 

ILOAD RETURN ADDRESS 

001030 

010137 

001006 



MOV 

R1iP#RELR1 


001054 

163737 

001004 

001006 


SUB 

*#FaCTOR,»#RELR1 

#400,##SWR 

[RELRl CONTAINS UNRELOCATED Rl 
ILOAD PDPll/45 MICRO BREAK REGt 

001062 

032737 

000400 

177570 


BIT 

001070 

001403 




8ES 

1* 

ILOAD MICRO BREAK REG WITH SR0*7 

001072 

113737 

177570 

177770 


MQVB 

##SWR,*#UiREAK 

001100 

000002 


isi 

RT! 


IRETURN TO SUBTEST 

001102 

032737 

004000 

177570 

SCQPEC! 

BIT 

#4000, ##SWR 

1 SUBTEST ITERATION OESJREQ? 

001110 

001006 




BNE 

SCOPEE 

IBRANCH IF NO ITERATION DESIRED? 

001112 

005327 




DEC 

(PS)* 

1 DECREMENT SUBTEST ITERATION COUNT 

001114 

000040 



SCOPED! 

40 


I CONTAINS SUBTEST ITERATION COUNT 

001116 

001393 




BNE 

SCOPES 


001120 

012767 

000040 

177766 

SCOPEFI 

MOV 

#40, SCOPED 

ireset iteration COUNT 

001126 

011601 


SCOPEEI 

MOV 

(SP),R1 

1 GET ADDRESS QF NEXT TEST 

001130 

000746 




BR 

SCOPEB 


001132 

032737 

010000 

177570 

IROUTINI 

RElOCi 

E TO RELOCATE PROGRAM CODE 

BIT 610000, »#S W R ICHECK If RELOCATION DESIRED (BIU2) 

001140 

001031 




BNE 

3S 

IBRANCH IF NO RELOCATION DESIRED 

001142 

013700 

001010 



MOV 

f#FRSTAD,R0 

I6ET FIRST ADDRESS OF CODE TO BE MOVED 

001146 

010005 



MOV 

R07R? 

ISAVE 

001150 

010204 




MOV 

R2*R4 

|GET LAST ADDRESS OF CODE TO BE MOVED 

001152 

160504 




SUB 

R5,R4 

|R4 CONTAINS # OF WORDS TO RELOCATE 

001134 

010203 




MOV 

R2iR3 

##PaCTOR 

ISAVE LAST ADDRESS OF CODE TO BE MOVED 
IFIRST RELOCATION IS TO 20000 

001156 

005737 

001004 



TST 

001162 

001004 




BNE 

101 

ISAVE RETURN H TO NEXT SECTION OF CODE' 

001164 

010237 

001230 



MOV 

RgTMRETPG 

f#FRSTMEM l R2 

001170 

013702 

001012 



MOV 

ISET FIRST A8O0RESS 

001174 

060204 



1011 

ADO 

R2,R* 

|R4 CONTAINS LAST MEMORY ADDRESS 
ITO BE USED 

001176 

020437 

002140 



CMP 

R4TMLITMEM 

ICHECK IF SUFFICIENT MEMORY REMAINS 



02QKCD 


( 


( 


ND 

MACYU 

27(655) 

19i*UUL«74 

111 

40 PAGE 

5 

001202 

101011 




BHI 

4S 

001204 

012022 


IS) 


MOV 

(R0)*,(R2)* 

001206 

020003 




CMP 

R0iR3 

001210 

001375 




BNE 

IS 

001212 

024042 


21 i 


CMP 

• ( R0 ) » • ( R2 1 

001214 

001401 




3EQ 

,44 

001216 

104400 




HLt 


001220 

020005 




CMP 

R07 R5 

001222 

001373 




BNE 

2* 

001224 

010207 


3Sj 


MOV 

R27PC 

001226 

011707 


4li 


MOV 

(PC), PC 

001230 

000000 


RET 

PCI 

0 





1 R 0 

UT! 

NE TO PRINT ASCII MESSA 

001232 

010046 


,PR 

I NT 

1 MOV 

R07»(SP) 

001234 

017600 

000002 



MOV 

»2(SP),R0 

001240 

062766 

000002 

000002 


ADD 

#2j,2 ( SP ) 

001246 

112046 


isi 


MQVB 

( R0 ) *, « (SP) 

001250 

001003 




BNE 

21 

001252 

005726 




TST 

(SP)* 

001254 

012600 




MOV 

( S R ) * | R 0 

001256 

000207 




RTS 

PC 

001260 

004767 

000026 

2$ | 


JSR 

PC75S 

001264 

122726 

000012 

35 j 


CMPB 

#12, (SP)+ 

001270 

001366 




BNE 

IS 

001272 

016746 

177504 



MOV 

SFTLLS,*(SP> 

001276 

105366 

000001 

4$ 1 


DECB 

1(SP) 

001302 

002770 




blt 

3S 

001304 

004767 

000002 



JSR 

PC75S 

001310 

000772 




BR 

4$ 

001312 

105737 

177564 

5$i 


TSTB 

P#TPS 

001316 

100375 




BPL 

, »4 

001320 

116637 

000002 

177566 


MOVB 

2(?P) ,P#TPB 

001326 

000207 




RTS 

PC 


000000 




NULL 40 



/RELOCATE PROGRAM CODE 
I CHECK IP DONE 

I CHECK THAT CODE WAS RELOCATED 
/PROPSRL* 

lERHOR! CODE NOT RELOCATED PRORERUT 
/CHECK If FINISHED CHECKING 

ICO EXECUTE RELOCATED CODE 
I RETURN TO NEXT SECTION OP CODE 

i contains pc or next section or code 

, MESSAGE most TERMINATE with a 0 byte; 
/SAVE R0 ON THE STACK 
I GET MESSAGE ADDRESS 
I ADJUST RETURN PC 

I PUSH CHAR ON THE STACK 
I BRANCH IF NOT TERMINATOR 

|POP terminator off the stack 

I RESTORE R0 

/RETURN 

/TYPE CHARACTER 

/CHECK IE CHAR WAS A UTNE FEED 
/BRANCH IP NOT UINE PEED 

i get # of fillers ReQOj«eO after 

I UINE FEED AND, FILLER CHARACTER 
/DECREMENT FILLERS COUNT 
/BRANCH IF NO MORE FILLERS NEEDED 
/ TYPE FILLER CHARACTER 


/WAJT FOR OUTPUT QEVICC 
/TO SECOME READY 
/TYPE CHARACTER 


001330 


/ROUTINE TO PLACE ASCII VALUE OF AN ADOrEsS IN TO ADDRESS MESSAGE 
SFORM0I 


001330 

004767 

176660 


JSR 

PC7SSAVR 

/GO SAVE REGISTERS ON THE STACK 

001334 

012704 

001662 


MOV 

#DIGITS,R4 

/ADDRESS WHERE ASCII VALUES ARE 

001340 

005003 



CLR 

R3 

/WORKING & INDEX REGISTER 

001342 

010201 



MOV 

R27R1 

/SAVE 

001344 

006302 


isi 

ASU 

R2 

/FIRST DIGTT TO R3 

001346 

006103 



ROL 

R3 


001350 

012700 

000006 


MOV 

#67R0 

/DIGIT COUNT 

001354 

000404 



BR 

3S 

/PRINT FIRST DIGIT 

001356 

006302 


2Si 

asl 

R2 


001360 

006103 



ROL 

R3 


001362 

005301 



DEC 

R1 



( 
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DZQKCD 


( 



001364 

001374 



3Si 

b n e 

2$ 


001366 

012701 

000003 


MOV 

#37R1 

/DIGIT SHIPT COUNT 

001372 

116324 

001652 



MOVB 

DIGTAB(3), (4)* 

1 LOAD DIGIT INTO MESSAGE 

001376 

005003 




CLR 

R3 

/.CLEAR INOEX 

001400 

005300 




DEC 

R0 

IDE? DIGIT COUNT 

001402 

001365 




BNE 

2S 


001404 

004767 

176630 



JSR 

PC7SRESTR 

/RESTORE REGISTERS FROM STACK 

001410 

000207 




RTS 

PC 

/RETURN 

001412 

005737 

177570 


JERRQR 

ERROR/ 

SERVICE 

TST 

CALLED by trap ( 
• RSWR 

hlt> instruction 

/HALT ON ERROR! 

001416 

100002 




BPL 

i*6 


001420 

000000 




HALT 


/ERROR PS IS THE TOP WORD 

001422 

000002 




RTI 


/ON THE STICK 

001424 

032737 

02 0000 

177570 


BIT 

#20000, PRSWR 

/PRINT OUT DESIRED? 

001432 

001073 




BNE 

1* 

JBRANCH IF NO PRINTOUT 

001434 

011627 




MOV 

(sp),(po* 

/SAVE PC 

001436 

000000 



US! 

.WORD 

0 

/CONTAINS SAVED PC 

001440 

016627 

000002 



MOV 

2(SP), (PC)* 

/GET STATUS ON TRAP 

001444 

000000 



12SI 

.WORD 

0 

/CONTAINS STATUS (PSW) AT TIME OF TRAP 

001446 

004767 

176542 



JSR 

PC7SSAVR 
•# I CNT, R2 

/GO SAVE REGISTERS ON THE STACK 

001452 

013702 

001000 



MOV 

/GET PASS COUNT 

001456 

004767 

177646 



JSR 

PCISFQRM0 

/GO TO FORMAT ROUTINE 

001462 

016767 

000176 

000212 


MOV 

0I5ITS*2, PASSES 

/LOAD ASCI! VALUES 

001470 

016767 

000172 

000206 


MOV 

0IGITS*4,PASSES+2 

001476 

004767 

177530 



JSR 

PG7, PRINT 

/PRINT MESSAGE BEGINING AT FOLLOWING APRS 

001502 

001672 




PASCNT 



001504 

016702 

177726 



MOV 

US,R2 

/GET PC OF ERROR CALL 
/DECREMENT PC TO HLT 

001510 

005742 




TST 

*(R2> 

001512 

004767 

177612 



JSR 

PC,SFQRM0 

/GO TO FORMAT ROUTINE 

001516 

004767 

177510 



JSR 

PCi, PRINT 

/PRINT MESSAGE BEGINING AT FOLLOWING APRS 

001522 

001707 




ERRPC 


001524 

004767 

177502 



JSR 

PC7, PRINT 

/PRINT MESSAGE BEGINING AT FOLLOWING APRS 

001530 

001662 




DIGITS 

001532 

004767 

177474 



JSR 

PC7, PRINT 

/PRINT MESSAGE BEGINING AT FOLLOWING APRS 

001536 

001714 




STATUS 


001540 

016702 

177700 



MOV 

121, *2 

/GET StAUS AT TIME OF ERROR 

001544 

004767 

177560 



JSR 

PC7SFDRM0 

/GO TO FORMAT ROUTINE 

001550 

004767 

177456 



JSR 

PC7, PRINT 

/PRINT MESSAGE BEGINING AT FOLLOWING APRS 

001554 

001662 




DIGITS 

/GET PC OP ERROR 

001556 

016702 

177654 



MOV 

US,R2 

001562 

005742 




TST 

• (*2) 


001564 

005737 

001004 



TST 

•RBACTOR 


001570 

001412 




8EQ 

10? 

1 FORM PC OP ORIGINAL CODE 

001572 

163702 

001004 



SUB 

•#PACT0R»R2 

001576 

004767 

177526 



JSR 

PC4JFORM0 

/GO TO format routine 

001602 

004767 

177424 



JSR 

PC, .PRINT 

/PRINT MESSAGE BEGINING AT FOLLOWING APRS 

001606 

001721 




ERRPC0 



001610 

004767 

177416 



JSR 

PCI, PRINT 

/PRINT MESSAGE BEGINING AT FOLLOWING APRS 

001614 

001616 

001662 



10S! 

DIGITS 


/RESTORE REGISTERS PRQH STICK 
/RING BELL ON ERROR 

001616 

004767 

176416 


1*1 

JSR 

PC7SRESTR 

001622 

032737 

002000 

177570 

BIT 

#2000 , ##SWR 

001630 

001403 




BED 

8$ 
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00*632 

001036 

001640 

001644 

001646 

001650 


001652 

001654 

001656 

001660 

001662 

001670 

001672 

001674 

001702 

001707 

001714 

001721 

001726 

001734 

001742 

001744 

001747 


004767 177374 

001747 

005737 177570 

100001 
000000 
000002 


030460 

031462 

032464 

033466 

030060 

000040 

005015 

044440 

030060 

040 

051520 

120 

047514 

020104 

000040 

005015 

007 

001752 


2S) 


4SR 

0EU 

TSf 

8PL 

HALT 

RT! 


pc;, PRINT 

»*$WR 

.*3 


I PR I NT MESSAGE BEGInIN* AT FOLLOWING AORS 
> HALT AFTER PRINT OUT 


030060 030040 


'000000 ' 


047103 

030060 

041520 

031527 

020103 

040503 

051106 

000 

000 


036524 

000 

000075 

000 

042522 

042524 

046517 


iOlgrT TABLE 
OtOTABI "01 
"23 
"45 
"67 

PI CUTS I .ASCIZ 

PASCNfl i ABC!! <15><12> 

.ASCII * ,t,CNTs« 

PASSES! .ASCII '0000! 

ERRPCl , ASCIZ ' CC»! 

STATUS! .ASCIZ 'P2WM 

ERRPC0I .ASCIZ * PC RELOCATED FROM ' 


SCRt.Fi .ASCII <15><12> 
BELL! .ASCIZ <7> 

.EVEN 


! ROUTINE TO GET TYPED OCTAL 
R57RECP 
0 


JSR 

,WORO 


001752 

010046 


RECD! 

MOV 

R0?*(SP) 

001754 

005015 



CLR 

(R5> 

001756 

105737 

177560 

Ill 

TSTB 

P#TKS 

001762 

100375 



8PL 

IS 

001764 

113700 

177562 


MOVB 

P#TK8|R0 

001770 

042700 

000200 


BIC 

#2?0» R0 

001774 

122700 

000177 


CMPB 

#177|R0 

002000 

001010 



BNE 

2S 

002002 

112737 

000134 177566 


MOVB 

*K,P#TPB 

002010 

000241 



GLC 


002012 

006015 



RQR 

(R5) 

002014 

006215 



ASR 

(R5) 

002016 

006215 



ASR 

(R5) 

002020 

000756 



SR 

IS 

002022 

110037 

177566 

2Si 

MOVB 

R0^P#TPB 

002026 

122700 

000015 


CMPB 

615, R0 

002032 

001005 



BNE 

3S 

002034 

004767 

177172 


JSR 

PC, .PRINT 

002040 

001744 



SCRLF 


002042 

005725 



YST 

(R9>* 

002044 

000205 



RTS 

R5 

002046 

042700 

177770 

3Si 

B 1 C 

*177770, R0 


ADDRESS ANO CONVERT TO OCTAL, CALL) 

I CONVERTED OATA IS PLACED MERE 
(SAVE R0 ON THE STACK 
I CLEAR OLD DATA 

I WAIT FOR USER TO TYPE CHARACTER 

(GET CHARACTER 
! STRIP HSB 
ICHECK IF RU80UT 
(BRANCH IF NOT RUBOUT 
ITYPE \ 

(CLEAR CARRY 

(SHIFT LAST TYPED CHARACTER 
» OUT of OaTa WORD 

(GO WAIT for NEXT CHARACTER 

JECHO CHARACTER TYPED 

ICHECK IF CARRIAGE RETURN 

IBRANCH IF NOT CARRIAGE RETURN 

(PRINT MESSAGE 8EGINING aT FOLLOWING APRS 

(STEP RETURN ADDRESS 
(RETURN 

(STRIP N0N6ESSENTIAL BjTS 
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002052 

006315 

asl 

(R5> 

(SHIFT LAST CHARACTER 3 PLACES 

002054 

006315 

ASL 

<R?) 

(LEFT 

002056 

006315 

ASL 

<R5) 


002060 

050015 

BIS 

R0i(R5) 

(ANp INSERT NEW CHARACTER 

002062 

000735 

BR 

IS 

(WAIT FOR NEXT CHARACTER 

002064 

000002 

RT! 


IRETURN 
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, title q*qkc«c basic u famil* Instruction exer; 

SURTi CLR 6*PSW iKERNEl MODE 

CLR R0 I CLEAR R0«*9 

CLR R1 

CLR R2 

CLR «3 

CLR R4 

CLR R5 

MOV #KPTR,SP |SET KERNEL STACK RTR 






IROUTJNE 

; TO DETERMINE LAST MEMORY ADDRESS 


002112 

012737 

002132 

000004 


MOV 

#l$i PPtRRVEC 



002120 

309037 

000006 



CLR 

MgRRVEC*2 



002124 

309000 




CLR 

R0 



002126 

005720 




TST 

(R0>* 

jwill time outwhen end or memory 


002130 

000776 




BR 

, «2 



002132 

162700 

000002 


111 

SUB 

#2*R0 



002136 

010027 




MOV 

R0* (PC)* 

» SET VALUE INTO L$TMEM 


002140 

000030 



LStMEMI 

.WORD 

0 

1 CONTAINS Value of last memory ADDRESS 

002142 

162737 

004000 

002140 


SUB 

44000, MLSTMEM 

1 SET PROTECTION FOR LOADERS 


002150 

012737 

320000 

001012 


MOV 

420000, PPFRSTMEMlSET LOWER BOUNDARY AT 20000 


002156 

000422 




BR 

starts 

ICO TO START 3 


002160 




STARTii 





002160 

304767 

177046 



JSR 

pc;,print 

I PR J NT MESSAGE BEGININO AT FOLLOWING 

ADR8 

002164 

016974 




MSG1 




002166 

004567 

177560 



JSR 

R5TRECD 

1 GET LOWER LIMIT 


002172 

000000 



IS I 

.WORD 

3 

ICONTAINS TYPED LOWER LIMIT 


002174 

316737 

177772 

001012 


MOV 

IS J'PPFRSTMEM 

1 SET IN LOWER LIMIT 


002202 

004767 

177024 



JSR 

Per, PRINT 

1 PR I NT message becining at following 

APRS 

002206 

016611 




MSG2 




002210 

304567 

177536 



JSR 

R5‘,*RECD 

1 SET UPPER LIMIT 


002214 

000000 



2Si 

.WORD 

0 

ICONTAINS UPPER LIMIT 


002216 

016737 

177772 

002140 


MOV 

2SVP4LSTMEM 




4#icnt i C lear pass count 

#eRrvec+2,p#errvec i set error trap to halt AT 6 

#SIKPTR,SP ) SET STACK PtR 

9#rCNT,P#DlSPLAY)0ISPLAY PASS COUNT 
#S^OPEA,P#EMTVECjSEt EMT(SCQPE) TRAP VECTOR 
«E«ROR|P#TRAPVEC | SET TRAP (HLT) VECTOR 

#2«j0iP#TRAPVEC*2 l RR I OR l TV LEVEL 4 ON TRAP 

I0O0000000OO00 FIRST ADDRESS To BE RELOCATED 000000000 
RELO t MOV PC|R0 ) GET PC 

TST -(305 |R0 CONTAINS THE ADDRESS OP REL0 

MOV R0*P#FRSTAP ) SAVE 

MOV PCiRB f GET CURRENT PC 

SUB #||R0 I SUBTRACT RELOCATION FACTOR 

MOV R0|»PF ACTOR )SAVE RELOCATION FACTOR 

MOV PC7R1 I SET NEW SCORE PTR 

JCHECK BRANCH INSTRUCTIONS 

CCC |CC* S«003B 

BCS CC0 ISAME AS BCO 


( 


302272 

310730 


302274 

305740 


302276 

013037 

001010 

302332 

310700 


002334 

162700 

002304 

302313 

010037 

001004 

302314 

310731 


302316 

300257 


302320 

103407 



302224 

005037 

001000 


STARTS) 

CLP 

302230 

312737 

000006 

002004 

START2I 

MOV 

002236 

312736 

000500 



MOV 

002242 

313737 

001000 

177570 


MOV 

302250 

012737 

001016 

200030 


MOV 

302256 

312737 

001412 

200034 


MOV 

302264 

312737 

000200 

000036 


MOV 


002066 009037 177776 

002072 009000 

002074 009001 

002076 009002 

002100 009003 

002102 009004 

002104 009005 

002106 012706 000600 
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302322 

102406 


BVS 

CC0 

302324 

001405 


BEG 

cc® 

302326 

100404 


BM! 

CC0 

302330 

002403 


BLT 

CC0 

302332 

003402 


ble 

CC0 

302334 

101401 


BLOS 

cci 

302336 

101001 


BHI 


302340 

104400 

CC0I 

MLT 

1 one OF the above branches failed 



ICONTINUE 


302342 

300270 


SEN 

|CC«S*1000 

002344 

100003 


8PL 

CC1 

002346 

002002 


BCE 

eel 

302350 

003001 


SGt 

cci 

302352 

002401 


BLt 

,*4 

302354 

104400 

ccii 

hlt 

1 ONE OF the above branches failed 



JCONTtNUE 


302356 

000262 


SEV 

I CC * S»1010 

302360 

102003 


BVC 

CC2 

302362 

002402 


BLT 

CC2 

302364 

303401 


BLE 

CC2 

302366 

002001 


BGE 

,+* 

302370 

104400 

CC2l 

hlt 

1 ERROR! ONE OF THE ABOVE BRANCHES FAILED 



ICONTJNUE 


002372 

000261 


SEC 

iee*s*i 0 U 

302374 

103002 


see 

CCS 

302376 

101001 


BH! 

cca 

302430 

303001 


bgt 

, *4 

002432 

104400 

CC3! 

hlt 

1 ERROR) ONE OF THE ABOVE BRANCHES FAILED 



ICONTINUE 


002434 

000264 


SEi 

icc'siiiii 

002406 

001003 


BNE 

CC4 

002410 

003002 


BGT 

cq4 

002412 

101001 


BHI 

CC4 

002414 

003401 


BLE 

, *4 

302416 

104400 

CC4I 

hlt 

I ERROR] ONE OF THE ABOVE BRANCHES FAILED 

002420 

104000 


SCOPE 




jtest 

UNARY CONDITION COOES 



ICIR 

R0 


002422 

000277 


see 


302424 

000244 


CL2 


002426 

009000 


SLR 

R0 |R0s0, CC^ SP0I00 

002430 

103404 


BCS 

SLRB 

302432 

102403 


BVS 

CL«0 

002434 

001002 


BNE 

CL«0 

002436 

100401 


BM! 

CLR0 

302440 

003401 


BLE 

, *4 

002442 

104400 

CLR0I 

hlt 

j ERROR! incorrect cc*s after clr 


see 


002444 000277 



DiOKCfcC BASIC !l FAMILV INSTRUCTION EX?R*, 
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|'R0>0«CC*8*0l00 

)ERROR| INCORRECT CC'S AFTER T8T 
J R0**1#CC< 5*1001 

I ERROR l INCORRECT CC»S AFTER COM 
|R8*000000;CC<Ss010i 

i error i incorrect cc's after aoc 

JR0*100000ICCI8*1010 

I ERROR! INCORRECT CC'S AFTER ROR 
I R0* 077777 1 CC# 8*0011 

I ERROR I INCORRECT CC'S AFTER DEC 
I R0* 100000 iCCf 3*1010 

/ERROR! INCORRECT CC'S AFTER INC 
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002610 

000277 


see 


002612 

000242 


CLV 


002614 

005400 


NEG 

R0 

002616 

103003 


BCC 

NEP0 

002620 

102002 


BVC 

NLiffiJ 

002622 

001401 


BEQ 

NES0 

002624 

002001 


BGE 

,*4 

002626 

104400 

NEG0I 

WLT 


002630 

000261 


SEC 


002632 

006300 


asl 

R0 

002634 

103004 


BCC 

ASL0 

002636 

102003 


BVC 

ASL0 

002640 

001002 


BNE 

ASt!0 

002642 

100401 


BMf 

ASL0 

002644 

101401 


BLOS 

,*4 

002646 

104400 

ASL0I 

HLT 


002650 

006100 


rol 

R0 

002652 

103402 


BCS 

ROU0 

002654 

003401 


BLE 

ROL0 

002656 

002001 


BGE 

,*4 

002660 

104400 

ROL0I 

HLt 


002662 

006200 


ASR 

R0 

002664 

103003 


BCC 

ASR0 

002666 

102002 


BVC 

AS50 

002670 

001001 


BNE 

ASR0 

002672 

002401 


BLT 

• *4 

002674 

104400 

ASR0I 

HLt 


002676 

000277 


see 


002700 

005600 


SBC 

R0 

002702 

103002 


see 

$600 

002704 

102401 


BVS 

SBC0 

002706 

003401 


BLE 

;♦< 

002710 

104400 

SBC0I 

HLt 


002712 

005400 


NEC 

R0 

002714 

000300 


S W AB 

R0 

002716 

103403 


BCS 

SWAB0 

002720 

102402 


BVS 

SWAB0 

002722 

001001 


BNE 

SWAB0 

002724 

002001 


BGE 

,*< 

002726 

104400 

SWAB0I 

HLT 


002730 

104000 


SCOPE 



19»UUL«-7A 11 f 40 RASE 12 

)R0*100000,'Ce<5*1011 

I ERROR f INCORRECT CC' S AFTER NEC 
jR0*000000;cc*3*0iii 

jERRORj INCORRECT CC'S AFTER ASL 

!R0*00000i;ceis*0000 

i error i Incorrect cc'S after rol 

|R0 *000000 /CC* 5*0111 

jERRori Incorrect cc'S after asr 
)R0*»i,ce#s*i00i 

iERRor? incorrect cc'S after sbc 

iR0«00000i;cc<s«0000i 

I R0*000400 ,CC'S*0100 

iERRori incorrect cc'S after swab 



ICNECK REGISTER SELECTION 


002732 

005000 

CLR 

R0 


002734 

000277 

see 



002736 

006100 

ROL 

R0 

>R0«1 

002740 

010002 

MOV 

R0IR2 


002742 

006302 

ASL 

R2 

)R2s2 

002744 

010203 

MOV 

R2»R3 
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DZQKCD 


002746 

006303 



ASL 

R3 

|R3«4 

002750 

010304 



MOV 

R37R4 


002752 

006304 



ASL 

R4 

) R4f 10 

002754 

010405 



MOV 

R4| R5 

002756 

006305 



ASL 

RS 

)R5i20 

002760 

010546 



MQV 

R57-(SP) 

(SET BITS SET IN REGISTERS 

002762 

050416 



BIS 

R4,(SP) 

(INTO STACK ADDRESS 

002764 

050316 



BIS 

R3MSP) 


002766 

050216 



BIS 

R2i(5P> 


002770 

050016 



BIS 

R0( (SP> 


002772 

022726 

000037 


CMP 

#37,(SP)4- 

J WERE SET 

002776 

001401 



BEQ 

i *4 

003000 

104400 



HLt 


I MISS INC BfT(S) REPRESENT 
> INCORRECT REGISTER SELECTION 




ICmeCK 

that all 

BITS CAN Be 

SET i CLEARE5 IN ALL REGISTERS 

003002 

000257 


ccc 



003004 

112700 

000377 


MOVB 

4377, R0 

i set all bits (Move extends sign) 

003010 

006100 


is i 

RQL 

R0 

(ROTATE A 0 THROUGH ALL BIT 

003012 

103776 



BCS 

t* 

1 POSITIONS 

003014 

005200 



INC 

R0 

(FINAL RESULT IS •! 

003016 

001401 



3EQ 

,*4 


003020 

104400 



HLT 


(error | 

003022 

012700 

000020 


MOV 

#16, ,R0 

) SET shift count 

003026 

005002 



CLR 

R2 

003030 

000261 


2Si 

SEE 


IROTaTE i THROUGH ALL BIT POSITS 

003032 

006002 



ROR 

R2 

003034 

005300 



DEC 

R0 

(DECREMENT shift COUNT 

003036 

001374 



BNE 

2S 


003040 

005102 



COM 

R2 

1 R2 SHOULD CONTAIN .1 

003042 

001401 



BED 

,*4 


003044 

104400 



HLT 


1 ERROR I CHECK R2 SHOULD ■ 0 

003046 

012703 

100000 


MOV 

#100000, R3 

1 EXTEND i 81? THROUGH kn POSITIONS 

003052 

006203 


3Si 

ASR 

R3 

003054 

103376 



BCC 

3S 

003056 

005203 



INC 

R3 


003060 

001401 



BED 

,*4 


003062 

104400 



HLT 


1 ERROR I 

003064 

112704 

177401 


mqvb 

#177401 , R4 

)R4»1 

003070 

060404 


4SI 

ADD 

R4|R4 

( HAS THE AFFECT OF SHIFTING A BIT 

003072 

103376 



BCC 

4S 

(THROUGH ACL POSITIONS 

003074 

305704 



TST 

R4 

i result shouCd BE 0 

003076 

001401 



0EQ 

,*4 


003100 

104400 



HLT 




003102 012705 000001 

003106 006305 

003110 102376 

003112 006305 

003114 103002 

003116 0057P5 


MOV #l7R? 

5$i ASr R5 
ByC 51 

ASL R5 

BCC 61 

TST R5 


OZOKC,C BASIC ii FAMILY INSTRUCTION EXER MACYn 27(655) 19.JUU74 U|40 RASE 14 

Q2QKCD 


003120 

001401 


BEQ 



003122 

104400 

6Si 

HLT 





JCHECK 

register volatility 


003124 

005002 


CLR 

R2 


003126 

005102 


COM 

R2 

) R2«»l 

003130 

010203 


MOV 

R27R3 


003132 

000257 


CCC 



003134 

006002 


ROR 

R2 

( R2*L00P COUNT 

003136 

006202 


ASR 

R2 


003140 

010304 

7*1 

MOV 

R37R4 


003142 

005302 


DEC 

R2 

( DECREMENT LOOP COUNT 

003144 

001375 


BNE 

7S 


003146 

005203 


INC 

R3 

(CHECK RS 

003150 

001002 


BNE 

8$ 


003152 

005204 


INC 

R4 

(CHECK R4 

003154 

001401 

esi 

BEQ 

, *4 


003156 

104400 

HLT 




Z 






JCWECK 

GSTSTl 

TRANSFER 

OF REGISTER DATA BETWEEN TRE GS AND GD REGISTERS (U/45) 

003160 

032737 

000020 

177776 

BIT 

#20,»#PSW 

(CHECK IF l T t BIT IS S|T 

003166 

001052 




BNE 

71 

(SKIP TEST IF t T * BIT SET 

003170 

010146 




MOV 

R17»<SP> 

(SAVE SCOPE PTR 

003172 

010627 



isi 

MOV 

SP!(PO* 

(SAVE STACK PTR 

003174 

000000 



* WORD 

0 

(CONTAINS SAVED STACK PTR 

003176 

010727 




MOV 

PC, (PC)+ 

(LOAD OAf A. THE CURRENT PC IS USED AS 

ioata; if this test fails n con. 

O032P0 

000000 



2$ ) 

.WORD 

0 








(TAINS the QATA BEING USED', 

003202 

005267 

177772 


3S 1 

INC 

2S 

(MAKE ODD TO CHECK BIT 0 

003206 

016700 

177766 


MOV 

2S7R0 

(LOAD GO REGISTER 0 

003212 

010001 




MOV 

R0iRl 

(TRANSFER SS REG 0 TO GO REG 1 

003214 

010102 




MOV 

RlfRZ 

(AND GS AEe 1 TO GO REG 2 

003216 

010203 




MOV 

R27R3 

1 ETC'/* « 

003220 

010304 




MOV 

R3?R4 


003222 

010405 




MOV 

R4|R5 


003224 

152737 

000340 

177776 


B I SB 

#340,P#PSW 

(SET PRIORITY LEVEL 7 

003232 

010506 




MOV 

R57SP 

(Transfer gs reg 5 to go stk ptr 

003234 

010627 




MOV 

SP, (PC)* 

(TRANSFER OS StK PTR TO MEMORY 

003236 

000000 



4$i 

.WORD 

0 

(CONTAINS GS STACK PTR 

003240 

016706 

177730 



MOV 

1S7SP 

#320i R#PSW 

(RESTORE SfK P?R NEEDED FOR HLT/SCOPE 

003244 

142737 

000340 

177776 


S I OB 

(SET PRIORITY EEVEL 0 

003252 

026700 

177760 



CMP 

4S»R0 

(COMPARE GS/GO STKPfR WJTH GS REG 0 

003256 

001004 




BNE 

5S 

(BRANCH IF THEY WERE NOT s 
(SHIFT TEST DATA UNTIL i 000000 

003260 

006367 

177714 



ASL 

21 

003264 

001350 




BNE 

31 


003266 

000411 



5S1 

BR 

61 


003270 

010046 



MOV 

R07«(SP) 

(GET GS Reg 8 

003272 

010146 




MOV 

R1j*(SP) 

I ETC ,/, 

003274 

010246 




MOV 

R2».(SP> 


003276 

010346 




MOV 

R37-(SP) 


003300 

010446 




MOV 

R4, ® ( SP ) 


003302 

010546 




MOV 

R5<«( SP ) 


003304 

104400 




HLT 


(ERRORl Data in g? STK ptr NOT ■ GS REG 1 
(08 REG 8«6S RIG 5 ARE ON THE STACK 



01OKCD 


SASIC ix FAMIUT INSTRUCTION: EXIR, 

MA0Y11 

27)655) 

003306 

016706 177662 


MOV 

isTsp 

003312 

012601 

6Sj 

MOV 

)SP)*i 

003314 

104000 

7*| 

SCOPE 




1 TEST UNARV WORD INSTR 

003316 

000401 


SR 

,♦4 

003320 

000000 


.WORD 

0 

003322 

010702 


MOV 

PC|R2 

003324 

162702 000004 


SUB 

#4{R2 

003330 

005012 


CUR 

)R2) 

003332 

000261; 


SEC 


003334 

006012 


RQR 

IR2) 

003336 

101402 


BUDS 

RORl 

003340 

100001 


BPU 

ROR1 

003342 

002001 


BGE 


003344 

104400 

ROR1I 

HUT 


003346 

000257 


cce 


003300 

000261 


SES 


003352 

005312 


DEC 

<R8> 

003354 

103001 


see 

DEC! 

003356 

003401 


B UE 

,*3 

003360 

104400 

DECll 

HUt 


003362 

000257 


CCG 


003364 

000261 


SEC 


003366 

005512. 


aoc 

)R2) 

003370 

103403 


BCS 

AQSl 

003372 

102002 


BVC 

ad?i 

003374 

100001 


BPU 

ADSl 

003376 

001001 


BNE 

»*4 

003400 

104400 

ao6ii 

HUT 


003402 

006112 


ROL 

IR2) 

003404 

103003 


see 

ROUl 

003406 

102002 


BVC 

RQLl 

003410 

001001 


BNE 

ROU'l 

003412 

100001 


BPt 

, *4 

003414 

104400 

ROL’li 

HUT 


003416 

006112 


ROU 

<R2) 

003420 

101402 


BUOS 

ROU1A 

003422 

102401 


BVS 

R0H>1A 

003424 

100001 


BPU 

,*s 

003426 

104400 

ROUAi 

HUT 


003430 

006212 


ASR 

) R2 ) 

003432 

103003 


see 

ASRl 

003434 

102002 


BVC 

ASRl 

003436 

001001 


BNE 

ASRl 

003440 

100001 


BPU 


003442 

104400 

ASftll 

HUT 



19*JUU»74 3,1)40 PA8E IS 


{RESTORE STACK PTR 

intent scope ptr 


{RESERVE ADDRESS FOR TESTS 

I R2 POINTS TO RESERVED WORD 
IPRESET |Rg> 


i(R2>ii000B0ice«i0i0 

I ERROR) INCORRECT CC'S AS SHOWN ABOVE 

{ «R2)*077777,CC*00U 

{ERROR) INCORRECT CC'S AS SHOWN ABOVE 

) )R2> 9 100000 ,06*1010 

{ ERROR) INCORRECT CC'S AS SHOWN ABOVE 
HR2)«000000,CO«0111 

lERROR) INCORRECT CC'S AS SHOWN ABOVE 

)'(R2)i000001,CC*0000 
JBRANCH Ip C or Z is SET 

{ (R2) 9000000, CC*011i 

lERROR J INCORRECT CC'S AS SHOWN ABOVE 


OIOKCsC BASIC 11 FAMIUV 

instruction exer, 

MACYll 

27(655) 

19* JUU»74 H)40 PACE 16 




02QKC0 









003444 

306012 


RQR 

(R2) 

){R2) 9100000 «CC*1010 




003446 

103403 


BCS 

ROR1A 





003450 

102002 


BVC 

RQ21A 





003452 

301401 


PEQ 

RQR1A 





003454 

100401 


BMI 

,*9 





003456 

104400 

RORl A i 

HUT 






003460 

000261 


SEC 






003462 

005212 


INC 

<R2) 

MR2)»i00001,CC«1001 




003464 

103003 


BCC 

INC! 





003466 

102402 


BVS 

INC1 





003470 

001401 


BEQ 

JNSl 





003472 

100401 


SMI 

,*S 





003474 

104400 

INCH 

HUT 


1 ERROR! INCORRECT CC'S 

AS 

SHOWN 

ABOVE 

003476 

005612 


SBC 

(R3> 

1 ( R2 ) 1100000 |CC«1000 




003500 

103403 


BCS 

SBC1 





003502 

102402 


BVS 

SBC! 





003504 

001401 


BED 

SBC! 





003506 

100401 


BMI 






003510 

104400 

SBC1I 

HUT 


{ERROR) INCORRECT CC'S 

AS 

SHOWN 

ABOVE 

003512 

000261 


SEC 






003514 

005612 


SBC 

)R2) 

l(R2)«077777,CC«0010 




003516 

103403 


BCS 

SBClA 





003520 

102002 


BVC 

SBClA 





003522 

001401 


BEQ 

SBClA 





003524 

100001 


BPU 

i*3 





003526 

104400 

SBClA t 

HUT 


{ERROR) INCORRECT CC'S 

AS 

SHOEN 

ABOVE 

003530 

000261 


SEC 






003532 

005512 


AOC 

IR2) 

1 (R2)»100000,CC*1010 




003534 

100401 


BMI 

,*4 





003536 

104400 


HUT 






003540 

000261 


seq 






003542 

006312 


ASU 

)R2) 

{ ( R2 ) *0030001 CCf 01H 




003544 

103003 


BCC 

ASUl 





003546 

102002 


BVC 

ASL1 





003550 

001001 


BNE 

ASUl 





003552 

100001. 


BPU 

i+J 





003554 

104400 

ASCII 

HUT 


{ERROR) INCORRECT CC'S 

AS 

SHOWN 

ABOVE 

003556 

005112 


COM 

(R2) 

{ I R2) 9177777 i CC*1001 




003560 

103002. 


BCC 

COM! 





003562 

102401; 


BVS 

CO!H 





003564 

100401 


BMI 

i *4 





003566 

104400 

CQM1I 

HUT 


{error) Incorrect cc's 

AS 

SHOWN 

ABOVE 

003570 

000250 


cun 






003572 

005712 


TST 

IR2) 

J(R2)fl777?7 l CC*i000 




003574 

103403 


BCS 

TSTl 





003576 

102402: 


BVS 

TST1 





003600 

100001: 


BPU 

TSfl 







02QKCD 


BASIC 11 FAMILY 

INSTRUCTION EXER, 

MACY11 

27(655) 

003602 

001001 

TStll 

BNE 

1 4*4 

003604 

104400 

Hit 


003606 

000262 


SEV 


003610 

005412 


NEQ 

(R2) 

003612 

103002 


BCC 

NEG1 

003614 

102401 


BYS 

NESl 

003616 

001001 


BNE 

,+i 

003620 

104400 

NEG1I 

HLT 


003622 

005312 


DEC 

(R2) 

003624 

103001 


BCC 

OEClA 

003626 

001401 


9EQ 

i* 4 

003630 

104400 

DEC1AI 

HIT 


003632 

104000 


SCOPE 




1 CHECK 

UNARY BYTE JNSTf 

003634 

000401 


BR 

, +4 

003636 

000000 


.WORD 

0 

003640 

010703 


MOV 

PC7R3 

003642 

162703 

000004 

SUB 

#4,R3 

003646 

010304 


MOV 

R34R4 

003650 

005204 


INC 

R4 

003652 

005013 


CLR 

(R3> 

003654 

000261 

is i 

S£C 


003656 

105513 


ADCB 

(R3> 

003660 

100402 


BMi 

2S 

003662 

105214 


INCB 

(R4) 

003664 

000773 

2Sl 

BR 

IS 

003666 

102401 

BVS 

,*4 

003670 

104400 


HLT 


003672 

000242 


CLV 


003674 

105214 


INCB 

(R4) 

003676 

103402 


BCS 

insbi 

003700 

102001 


BVC 

INCB1 

003702 

100401 


BMI 

, *4 

003704 

104400 

INfiBll 

HLT 


003706 

106114 


rolb 

(R4) 

*03710 

103002 


BCC 

R0LB1 

003712 

102001 


BVC 

ROlBl 

003714 

001401 


BEQ 


003716 

104400 

ROLBli 

HIT 


003720 

105614 


SBCB 

(R6) 

003722 

103002 


BCC 

SBCB1 

003724 

102401 


BVS 

SBijBl 

003726 

100401 


BMI 

i *4 

003730 

104400 

SBCBU 

HLT 


003732 

106313 


ASLB 

<R3) 

003734 

103002 


BCC 

ASljBl 

003736 

102001 


BVC 

ASLB1 


i error t incorrect ec's as shown above 

I (R2)»000001,CC*0000 

I ERROR | INCORRECT CC'S AS SHOWN ABOVE 

i <*?)*000000ic6f0m 

lERRORl INCORRECT CC'S AS SHOWN ABOVE 

USING ADDRESS mode i 
iRESERVE A 

J ADDRESS RESERVED FOR TESTS 

JR3 POINTS TO EVEN BYTE OF WORD 
|R« POINTS TO ODD BYTE OP WORD 

I PRESET OaTA 


I ADD CARRy TO EVEN SyTE 

IUNT1E EVEN BYTE BECOMES NEGATIVE 

I INCREMENT ODD BYTE 

J {R3>a077600»C0774 3C200 3,CO*t0| > 0 


I (R3 > *100200*1 $000 3 £2003, CC *1010 

I ERROR I INCORRECT CC'S AS SHOWN ABOVE 
I (R9)P000200«C00003C2003.Ce«01U 

|ERROR| INCORRECT CC'S AS SHOWN ABOVE 
MR3)*l77600'»Ci7743C2003, CC«i«01 

I ERROR I INCORRECT CC'S AS SHOWN ABOVE 
I (R3)*177400,CC«01U 


OZQKCeC BASIC %% FAMILY INSTRUCTION EXER , MACYn 27( 655) 

OZQKCD 


003740 

001401 

ASien 

BEQ 

, +4 

003742 

104400 

HLT 


003744 

105413 


nesb 

( R3 ) 

003746 

103402 


BCS 

NEGB1 

003750 

102401 


BVS 

NEMB1 

003752 

001401 


BEQ 

,*4 

003754 

104400 

NEGBli 

HLT 


003756 

000277 


see 


003763 

105313 


DECB 

(R3) 

003762 

103002 


BCC 

0ECB1 

003764 

102401 


BVS 

OEC01 

003766 

001001 


BNE 

,* 4 

003770 

104400 

QECB1I 

HIT 


003772 

300241 


CLC 

(R3> 

003774 

106013 


RORB 

003776 

103002 


BCC 

RQRB1 

004000 

102001 


BVC 

ROR04 

004002 

100001 


BPl 

,*2 

004004 

104400 

RORBli 

HLT 


004006 

300241 


CLC 


004010 

105114 


COMB 

<R4) 

004012 

103002 


BCC 

CPHBl 

004014 

102401 


BVS 

COMBI 

004016 

001401 


BEQ 

, +4 

004020 

104400 

COMBI I 

HLT 


004022 

106213 

IS I 

ASRB 

(R3) 

004024 

102002 


BVC 

21 

004026 

105514 


ADCB 

(R4) 

004030 

000774 

2Si 

BR 

IS 

004032 

103401 

BCS 

ASRBl 

004034 

001401 


BEQ 

;*i 

004036 

104400 

ASRBli 

HUT 


004040 

106214 


ASRB 

CR4 ) 

004042 

106214 


ASRB 

S R "I > 

004044 

103002 


BCC 

ASRBIA 

004046 

102001 


BVC 

AS3B1A 

004050 

001001 


BNE 

,* 4 

004052 

104400 

ASR81AS 

HLT 


004054 

105314 


DECB 

(R4) 

004056 

001401. 


BEQ 

,*3 

004060 

104,400 


HLT 


004062 

080261 


SEC. 


004064 

106014 


RORB 

«R4) 

004066 

103402 


BCS 

R0«B1A 

004070 

102001 


BVC 

rorsia 

004072 

100401. 


BMI 

iM 


l9 t UUL«74 U!40 PAGE j8 

I ERROR J INCORRECT CC'S AS SHOWN ABOVE 
I (R3)fl77400,CC»0l00 

t error s incorrect cc'S as shown above 

I (R3)«177777,CC»1001 

I ERROR! INCORRECT CC'S AS SHOWN ABOVE 
I(R3)P17?577,CC«00|1 

I ERROR! INCORRECT CC'S AS SHOWN ABOVE 
» < R3 > *0001^7 , 

I ERROR! INCORRECT CC'S AS SHOWN ABOVE 
J SHJFJ EVEN BYTE UNfJl V CLEARS 
I AND ADD CARRY TO ODD BYTE 

i error j incorrect cc'S as shown above 

!(R9)«000400iCe«0011 

I ERROR? INCORRECT CC'S AS SHOWN ABOVE 
I ( R3-) ■0000001 CC*03,00 
I ERROR I INCORRECT GO'S AS SHOWN ABOVE 

MR3)fi00000»C0*10C0 



DiQKCnC 

D2QKCD 


D2QKC«C 

02QKCD 


BASIC 11 FAMIl* 

INSTRUCTION 

EXER , 

MACYU 

27(633) 19»UUU*74 11140 PA8E 19 

004074 

104400 


rqrbiai 

HUT 


1 ERROR! tNSORRECT CC'S AS SHOWN ABOVE 

004076 

000242 



CUV 



004100 

103314 



DECS 

<R«) 

l(R3)f077400,CC»0100 

004102 

102401: 



BVS 

>4 


004104 

104400 



Hit 



004106 

000261 



sec 



004110 

103313 



DE2B 

(H3) 

1 (R3>#077777,CCal001 

004112 

103002 



see 

oe^bia 

004114 

102401 



BVS 

oecbia 


004116 

100401 



0M| 

,*4 


004120 

104400 


DEfiBlA! 

HUT 


# ERROR I INCORRECT CC'S AS SHOWN ABOVE 

004122 

000277 



see 


!<R3)il77577t^i774 3£ l7f3,CC«0080 

004124 

000313 



SwAB 

(R3) 

004126 

103402 



BCS 

SWAB! 

004130 

102401 



BVS 

swabi 


004132 

100001 



BPU 

,*4 


004134 

104400 


SWABli 

Hit 


i ERROR! INCORRECT CC'S AS SHOWN ABOVE 

004136 

103714 



tstb 

CR4 ) 

I(R3>«l77577f!;|7743Cl773,CCfl000 

004140 

103402 



BCS 

TSTB! 

004142 

102401 



BVS 

TSTB1 


004144 

100401 


TSfBli 

BM! 



004146 

104400 


HUT 


i errorj Incorrect cc's as shown above 

004130 

103014 



cur 8 

(R4> 

MR3)S000l77iC00003Cl773 # CC*0180 

004132 

001401: 



BEQ 

,*3 

004154 

104400 



HUT 



004136 

106313 



ASLB 

<R3) 

l(R3)»000376 ,CC»1010 

004160 

103402 



BCS 

ASmBIA 


004162 

102001 



BVC 

ASfeBlA 


004164 

100401. 



BMJ 

,*3 


004166 

104400 


ASCBtAI 

HUT 


1 ERROR { INCORRECT CC'S AS SHOWN ABOVE 

004170 

103113 



comb 

< R3 > 

I (S3)*00300t,CC#0001 

004172 

103002 



BCC 

C0MB1A 


004174 

102401 



BVS 

COf'BlA 


004176 

100001 



BPU 

,*A 


004200 

104400 


C0MB1AI 

HUT 


1 ERROR 1 INCORRECT CC'S AS SHOWN ABOVE 

004202 

000313 



SWAB 

<H3) 

1 (R3) *000400, CC«0100 

004204 

001401 



BEQ 

,♦4 


004206 

104400 



HUT 



004210 

103213 



INCB 

(R3> 


004212 

000261 



SEC 



004214 

105613 



SBCB 

(R3) 

J (R3)*000400 I CG*01®0 

004216 

001401 



BEQ 

,*2 


004220 

104400 



HLT 



004222 

022713 

000400 


CMP 

#400, ( R3 ) 

/CHECK REMAINING RESUUT 

004226 

001401 



BEO 

, *4 


004230 

104400 



HUT 




BASIC |1 FAMIUV 

instruction 

EXER, 

MACYU 27(655) 

196UUU»74 11140 PA8E 20 



004232 

104000 



SCOPE 








/CHECK 

UNARY I 

word ops 

USING ADDRESS MOOES 2 AND 4 (AUTO INC/DEC) 

004234 

000401 



BR 

,*4 




004236 

000000 



.WORD 

0 

j ADDRESS RESERVED FOR TESTS 


004240 

010704 



MOV 

RCVR4 




004242 

162704 

000004 


SUB 

#4*R4 

J R4 AND R"5 POINT TO 



004246 

010405 



MOV 

R4|R5 

/RESERVED WORD 



004250 

009013 



CUR 

(R?> 

/PRESET OA?A*0 



004252 

000277 



see 





004254 

000244 



CU2 





004256 

003725 



TST 

(R5)4 

/ (R5)f000000 l CCs0100 



004260 

103402 



BCS 

TSI2 




004262 

102401 



BVS 

TS12 




004264 

001401 



SEQ 





004266 

104400 


TSt2l 

HUT 


/ERROR} INCORRECT CC'S 

AS SHOWN 

ABOVE 

004270 

003145 



COM 

*» ( R3 ) 

I ( R3 ) *177777 , CC*1001 



004272 

103001 



BCC 

COM4 




004274 

100401 



BM1 

,*4 




004276 

104400 


COM4! 

HUT 


/ERROR! INCORRECT CC'S 

AS SHOWN 

ABOVE 

004300 

000241 



ClC 





004302 

006024 



ROR 

(R4/4- 

J (R4 ) #077777 ,CC* 0011 



004304 

103002 



BCC 

R0R2 




004306 

102001 



BVC 

R022 




004310 

100001 



BPU. 

i *4 




004312 

104400 


R0R2I 

HUT 


/ERROR! INCORRECT CC'S 

AS SHOWN 

ABOVE 

004314 

000257 



ccc 





004316 

005244 



INC 

»<R4) 

I (R4)=i00000,CC*10i0 



004320 

102002 



BVC 

INC4 




004322 

001401 



BEQ 

I NC4 




004324 

100401: 



BM f 

,*4 




004326 

104400 


INC4I 

HUT 


/ERROR! INCORRECT CC'S 

AS SHOWN 

ABOVE 

004330 

000261 



SEC 





004332 

000324 



SWAB 

(R4)* 

J (R4)f000200,CC*1000 



004334 

103401 



BCS 

SWAB2 




004336 

100401 



BM I 

>4 




004340 

104400 


SWASBj 

HUT 


/ERROR! INCORRECT CC'S 

AS SHOWN 

ABOVE 

004342 

005425 



NEG 

(R9J* 

1 ( R5 > 1177600, CCp 1001 



004344 

103001 



BCC 

NEQ2 




004346 

100401 



BM | 

,4*4 




004350 

104400 


NEQ2I 

HUT 


/ERROR! INCORRECT CC'S 

AS SHOWN 

ABOVE 

004332 

005044 



CUR 

«<R4> 

/(R4)l000000,ce«0100 



004354 

001401 



BEQ 

.♦« 




004336 

104400 



HUT 





004360 

000261 



SEC 





004362 

006045 



ROR 

»(R5) 

J(R5)»i00000,CC»1010 





DJSQKCsC 

BASIC 11 FAMILV 

instruction 

EXER, 

HACYll 

27 1 655 J 

l9fJUU*74 11140 PACE 21 




PZQKCD 












004364 

000261 



SEC 







004366 

005525 



AOC 

<R5)* 

J (R5I ?i 00001 1 CC«1000 





004370 

102401 



BVS 

ADC2 






004372 

100401 



BMt 

,♦4 






004374 

104400 


ADC2I 

HUT 


{ERROR! INCORRECT CC'S 

AS 

SHOWN 

ABOVE 


004376 

000262 



SEV 







004400 

006224 



ASR 

(R4I* 

)(P4)fi40000,CC4l001 





004402 

103002 



see 

ASR2 






004404 

102401 



9VS 

A$«2 






004406 

100401 



BHl 

.★2 






004410 

104400 


ASR2I 

HUT 


{ERROR! INCORRECT CC'S 

AS 

SHOWN 

ABOVE 


004412 

000262 



SEV 







004414 

006144 



ROU 

«IR4> 

{ ( R4 > *100001 f CC*100t 





004416 

103002 



8CC 

R0i?4 






004420 

102401 



BVS 

RQU4 






004422 

100401 



BM I 

,♦2 






004424 

104400 


R0L4I 

HUT 


{ERROR! INCORRECT CC'S 

AS 

SHOWN 

ABOVE 


004426 

005645 



SBC 

*IR5> 

1 (R5)*100000,CC«1000 





004430 

103001 



BCC 

,*4 






004432 

104400 



HUT 


{ERROR! SIT FAIUEO 

TO 

CUEAR 



004434 

305325 



dec 

(R9>* 

MR5)i077777,CC«0010 





004436 

103402 



BCS 

DEH2 






004440 

102001 



BVC 

DEC2 






004442 

100001 



BPL 

,★4 






004444 

104400 


0EC2I 

HUT 


{ERROR! INCORRECT CC'S 

AS 

SHOWN 

ABOVE . 


004446 

006324 



ASU 

(R4>4 

1 (R4)«177776,CC«1010 





004450 

102401 



BVS 

,*4 






004452 

104400 



HUT 







004454 

006344 



ASU 

*(R4J 

MR4>«177774,CC«1001 





004456 

103003 



BCC 

ASU4 






004460 

102402 



BVS 

ASU4 






004462 

001401 



BED 

ASU4 






004464 

100401 



BMt 

,★5 






004466 

104400 


ASL4I 

HUT 


{ERROR! INCORRECT CC'S 

AS 

SHOWN 

ABOVE 


004470 

022724 

177774 


CMP 

#177774 | 

i <R4) + 





004474 

001401 



BED 

,*4 






004476 

104400 



HUT 







004500 

020405 



CMP 

R4 | R5 






004502 

001401 



BEQ 

.♦2 






004504 

104400 



HUT 







004506 

104000 



SCOPE 










{CHECK 

UNARY BYTE OPS USING AQQRESS MODES 2 AND 4 





004510 

000401 



SR 

.*4 

{RESERVE A W 8RD 





004512 

000000 



.WORD 

0 

{RESERVES) WORD 





004514 

010705 



MOV 

PC|R5 






004516 

162705 

000004 


SUB 

#4tR5 

{ R5 POINTS TO EVEN BYTE OF RESERVED WORD 


004522 

010500 



MOV 

R5,R0 






D2QKC«C 

basic u famiuy 

INSTRUCTION EXER, 

macy u 

27(655) 

19,JUU.74 11140 PACE 22 



dzqkcd 

004524 

010002 


MOV 

R0. R2 





004526 

005202 


INC 

R2 

{ R2 POINTS TO ODD BYTE 

OP 

RESERVED WORD 


004530 

005010 


CUR 

(R0) 

{PRESET 




004532 

000277 


sec 






004534 

000241 


cue 






004536 

105125 


COMB 

(R5>* 

J (R0) 1000377. CC11001 




004540 

103002 


BCC 

combs 





004542 

102401 


BVS 

C0r>B2 





004544 

100401 


BM I 






004546 

104400 

COMBS I 

HUT 


{ERROR! INCORRECT CC'S 

AS 

SHOWN ABOVE 


004550 

105542 


ADCB 

• (R2) 

{ (R0)< 00 0000.CC 10101 




004552 

001401 


BEQ 

. #4 





004554 

104400 


HUT 


{ERROR! INCORRECT RESUUT AS SHOWN ABOVE 


004556 

105525 


AOCB 

(R5)* 

J (R0)*000400/CCi0000 




004560 

103401 


BCS 

A0CB2 





004562 

001001 


BNE 

. *4 





004564 

104400 

AD6B2I 

HUT 


{ERROR! INCORRECT CC'S 

AS 

SHOWN ABOVE 


004566 

000263 


+SECISEV 





004570 

106045 


RQRB 

• (R5) 

t (R0)il00000|CCil001 




004572 

103003 


BCC 

R03B4 





004574 

102402 


BVS 

RQRB4 





004576 

001401 


BEQ 

R0RB4 





004600 

100401 


BM! 

.*3 





004602 

104400 

RQRB4 i 

HUT 


{ERROR! INCORRECT CC'S 

AS 

SHOWN ABOVE 


004604 

000277 


see 






004606 

106122 


ROUB 

(R3>* 

{ ( R0 ) f 100001 |CC* 0000 




004610 

103403 


BCS 

R0UB2 





004612 

102402 


BVS 

RQUB2 





004614 

001401 


BEQ 

R0UB2 





004616 

100001 


BPL 

»*f 

{ERROR? Incorrect cc's 




004620 

104400 

R0UB2I 

HUT 


AS 

SHOWN ABOVE 


004622 

000257 


CCC 


1 (R0)si40001. CC11010 




004624 

106225 


ASRB 

(R5)* 




004626 

103402 


BCS 

ASRB2 





004630 

102001 


BVC 

AS3B2 





004632 

100401 


BM! 

.*2 





004634 

104400 

ASRB2I 

HUT 


{ERROR! INCORRECT CC'S 

AS 

SHOWN ABOVE 


004636 

105242 


INC8 

»(R2> 

MR0)ii40002 l CC«0000 




004640 

000277 


see 


> (R0)ii40001,cC«0000 




004642 

106222 


ASRB 

(R8>* 




004644 

103402 


BCS 

AS2B2A 




004646 

102401 


BVS 

ASRB2A 





004650 

100001 


BPL 

.*4 





004652 

104400 

ASRB2AI 

HUT 


{ERROR! INCORRECT CC'S 

AS 

SHOWN ABOVE 


004654 

000266 


4SEUSEV 

»set ?,v 

{ ( R0) 1100001* CC«1001 




004656 

106345 


ASUB 

«(R5) 




004660 

103003 


BCC 

ASUB4 





D2GKC»0 BASIC jl FAMILY INSTRUCTION EXER , MABYU 27(155) 19«JUL*7« 11140 *A3E 25 

QIQKCD 


004662 102402 

004664 001401 

004666 100401 

004670 104400 

004672 109322 

004674 103002 

004676 102001 

004700 100001 

004702 104400 

004704 105645 

004706 103402 

004710 102401 

004712 001401 

004714 104400 

004716 105442 

004720 103002 

004722 102401 

004724 100401 

004726 104400 

004730 105725 

004732 103401 

004734 001401 

004736 104400 

004740 109722 

004742 001401 

004744 100401 

004746 104400 

004750 000261 

004752 00034? 

004754 103401 

004756 100401 

004760 104400 

004762 000277 

004764 105225 

004766 103003 

004770 102402 

004772 001401 

004774 100001 

004776 104400 

005000 022227 000601 

005004 001401 

005006 104400 

005010 020209 

005012 001401 

005014 104400 

005016 104000 



BVS 

ASLB4 


BEG 

ASCB4 


BMI 

,** 

ASUB4 1 

HLT 



DECS 

IRil* 


see 

DE8B2 


8VC 

DECB2 


BPL 

.*4 

DECS2( 

HLT 



SBCB 

*(R9> 


BCB 

SB0B4 


BVS 

SBCB4 


BEG 

,*4 

SBC 84 | 

HLf 



NEG8 

«< R2> 


see 

NEG04 


BVS 

NEI3B4 


BMI 

i*4 

NESB4 1 

HLT 



TSTB 

(R5(* 


BCS 

T5iB2 


BEQ 

,*3 

T S t B 2 i 

HLT 



TSTB 

(R2>* 


BEG 

TSTB2A 


BMI 

. *2 

T$fB2A» 

HLT 



SEC 



S W AB 

w(R2) 


BCS 

SWASH 


BMI 

,*2 

SWAB4I 

HLT 



see 



INC8 

(R5>* 


see 

IN&82 


BVS 

IN5BH 


BEQ 

INCB2 


9PL 

,*4 

INCB2 i 

HLT 



CMP 

(R2)* f i 


BEO 



HLT 



CMP 

R2|RS 

,** 


BEG 


HLT 

SCOPE 



( ERROR I INCORRECT CC'S AS SHOWN ABOVE 
l(R0)S0?7481sC0774!j[0043 ,CC»0010 

lERRORj INCORRECT CC'S AS SH0WNA6PVE 
» (R0JP077400* CC»0l00 

I ERROR l INCORRECT CC'S AS SHOWN ABOVE 
J(R0)il0400 ( CCflBBl 

lERRORj INCORRECT CC'S AS SHOWN ABOVE 
JCR0)Pi00400|CC»0100 

t tR0)sl00400«CC*1000 


MR0)R000201iCC«1000 


•l(R0>«00i60l«(;0004 3c20t3,CC»0000 


JCHECK END RESULT 
;CHECK REGISTERS 



if \ 


QIQKCD 


BASIC U FAMILV 

INSTRUCTION 

EXER , 

MACYu 

27(655? 




(CHECK 

unary WORD OPS us 

005020 

000402 



BR 

,*2 

005022 

000000 



.WORD 

0 

005024 

000000 



.WORD 

0 

005026 

010703 



MOV 

PCTR3 

005030 

162703 

000004 


SUB 

#4| R3 

005034 

005013 



CLR 

(R3J 

005036 

010300 



MOV 

R3i R8 

005040 

005743 



TST 

*(R3> 

005042 

010013 



MOV 

R0!(R3> 

005044 

010304 



MOV 

R37R4 

005046 

000257 



ccc 


009050 

005733 



TST 

»{R3J* 

009052 

001401 



BEQ 

, *4 

005054 

104400 



MLT 


005056 

000261 



SEC 


005060 

006093 



RQR 

«»|R3) 

005862 

103402 



BCS 

ROR5 

009064 

102001 



SVC 

RQR5 

005066 

100401 



BMI 

, *4 

009070 

104400 


R0R5I 

HLT 


009072 

000257 



ccc 


005074 

006234 



ASR 

• ( R 4 > * 

005076 

102001 



BVC 

ASR3 

005100 

100401 



BMI 


005102 

104400 


ASR3I 

HLT 


005104 

000250 



CLN 


005106 

006333 



ASL 

•(R3K* 

005110 

103002 



BCC 

ASL3 

005112 

102401 



BVS 

ASL3 

005114 

100401 



BMI 

.*4 

005116 

104400 


ASL3I 

HLT 


005120 

000277 



see 


005122 

005394 



DEC 

*>w(R4j 

005124 

103003 



BCC 

DECS 

005126 

102002 



BVC 

DECS 

005130 

001401 



BEQ 

DECS 

005132 

100001: 



BPL 

,*! 

009134 

104400 


DECS 1 

HLT 


005136 

005493 



neq 

Rs(R3) 

005140 

103002 



see 

NESS 

005142 

102401 



BVS 

NESS 

005144 

100401 



BMI 

1*4 

005146 

104400 


NESSl 

HLT 


005150 

000262 



SEV 


005152 

005134 



Com 

PIR4I* 


19 s JUL»74 11(40 RASE 24 


I RESERVE 2 WOR8S 

»i for the address 
I AND 1 FOR DATA 


(PRESET DATA 

(R0 POINTS TO OATA WORD 


)<R0)*000000,CC?0100 


!(R0>«100000»CCil0l0 


HR0)il40000,ce«1010 


((R0>U00000,CCfl00i 


I ( R0) 1077777. CC-0010 


l( R0 ) *100001 i CC-1001 


I ( R0)f 077776* CC80001 








MACYll 271655) 19«JUL«74 U|40 PACE 25 


OZQKCbC BASIC 11 family instruction EXER | 
OZQKCD 


005154 

103001 


BCC 

COM3 


005156 

102001 


eve 

. *4 


005160 

104400 

COM3 1 

HIT 



005162 

005233 


INC 

*(R3>* 

1 (R0)"077777» CC-0001 

005164 

103001 


BCC 

INC3 


005166 

100001 


8PL 

,*4 


005170 

104400 

INC3I 

HLT 



005172 

005554 


ADC 

P*IR4) 

i ( R0 ) 41000001 ec«i0i0 

005174 

103402 


BCS 

AQC5 


005176 

102001 


BVC 

ADCS 


005200 

100401 


BMI 

,♦4 


005202 

104400 

ADCS 1 

hly 



005204 

000257 


ccc 



005206 

006134 


ROL 

•<R4>* 

I (R0)*000000|CC*01H 

005210 

103002 


BCC 

ROL3 


005212 

102001 


BVC 

RQL3 


005214 

001401 


BED 



005216 

104400 

ROL3I 

HLT 



005220 

005253 


INC 

»«(R3) 

J (R0>»000001 1 CC«000i 

005222 

005654 


SBC 

• *! ( R4 ) 

} (R0)"000000« CC-0100 

005224 

103401 


BCS 

SB55 


005226 

001401 


BEQ 

,+4 


005230 

104400 

SBC51 

HLT 



005232 

104000 


SCOPE 





ICHCCK 

UNARY ! 

BYTE OPS USING 

ADDRESS MQDE9 3 AND 3 

005234 

000403 


BR 

,♦10 

j RESERVE 3 wORDS 

005236 

000000 


.WORD 

0 

Jl FOR EVEN BYTE ADDRESS 

005240 

000000 


.WORD 

0 

>1 FOR ODD BYTE ADDRESS 

005242 

000000 


.WORD 

0 

JANP l FOR DATA 

005244 

010702 


MOV 

pc;r2 


005246 

005742. 


TST 

*<R2> 

J BACK R2 UP TO 

005250 

005742 


TST 

• <R2> 

1 OAT A WORD 

005252 

010200 


MOV 

R2,'R0 

|R0 POINTS TO THE DATA WORD 

005254 

005010 


CLR 

(R0) 

) PRESET DATA 

005256 

005742 


TST 

"(32) 

) BACK R2 UP TO 

005260 

005742 


TST 

*(R2> 

J EVEN BYTE ADORESS WORD 

005262 

010022 


MOV 

R07(R2)+ 

) LOAD ADDRESS 

005264 

005200 


INC 

R0 

JOOD BYTE ADDRESS 

005266 

010022 


MOV 

R0I ( R2 )♦ 

) LOAD ODD BYTE ADDRESS 

005270 

010200 


MOV 

R2*R0 

l RESET R0 

005272 

010205 


MOV 

R2«R5 


005274 

105152 


COMB 

*«(R2) 

J ( R0 ) *177400 » CCil001 

005276 

103001 


BCC 

COPB5 


005300 

100401 


BMI 

,*3 


005302 

104400 

C0MB5 | 

HLT 



005304 

105752 


TSTB 

R«1R2) 

MR0)*177400i CC10100 

005306 

001401 


BEQ 

,*4 



DZQKCeC BASIC 11 FAMILY 

INSTRUCTION EXER, 

MACYll 

27(655) 

19,UUL«74 11(40 PAGE 26 

OZQKCD 





005310 

104400 


HLT 



005312 

000262 


SEV 



005314 

106255 


ASRB 

P«(R5) 

) (R0>?177400» CC»1001 

005316 

103002 


BCC 

ASRB5 


005320 

102401 


BVS 

AS2B5 


005322 

100401 


BMI 

,*4 


005324 

104400 

ASRB5s 

HLT 



005326 

105232 


INCB 

«MR2) + 

J ( R0 ) *177401 * CC«000 

005330 

103001 


BCC 

INCB3 


005332 

100001 


BPL 

, + l 


005334 

104400 

INC83 I 

HLT 



005336 

000241 


CLC 


l(R0)«177400, CCB0111 

005340 

106055 


RQRB 

P«(R5) 

005342 

103003 


BCC 

RP2BS 


005344 

102002 


BVC 

R0RB5 


005346 

001001 


BNE 

R02B5 


005350 

100001 


BPL 



005352 

104400 

RORB5 j 

HLT 



005354 

106332 


aslb 

PIR2J* 

MR0)il77000, CC«1001 

005356 

103002 


BCC 

ASLB3 


005360 

102401 


BVS 

ASfeB3 


005362 

100401 


BMI 

,♦3 


005364 

104400 

ASLB3I 

HLT 



005366 

105552 


ADCB 

•» ( R2 ) 

1 (R0)«177400, CC*1000 

005370 

103401 


BCS 

APCB5 


005372 

100401 


BMI 

,+4 


005374 

104400 

AD6B5 i 

hlt 



005376 

000277 


see 


MR0>*177401, CC»0000 

005400 

106135 


RQLB 

t*(R5>* 

R0UB3 

005402 

101402 


BLOS 

) BRANCH IF C OR Z IS ! 

005404 

102401 


BVS 

R0LB3 


005406 

100001 


BPL 



005410 

104400 

ROLB3 | 

HLT 



005412 

000352 


SWAB 

M{R2> 

) (R0)«8007?7, CC»1000 

005414 

100401 


BMI 

9 *4 . 

005416 

104400 


hlt 



005420 

000261 


SEC 



005422 

105635 


SBCB 

R(R5)* 

1 ( R0 ) P000377 j CC*0i00 

005424 

103401 


BCS 

SBCB3 


005426 

001401 


BED 



005430 

104400 

SBfi83? 

hlt 



005432 

105432 


NEOB 

P(B2>* 

MR0)i000001 

005434 

105352 


DECB 

is|R2) 

l(R0)*000000i CCs0101 

005436 

103001 


BCC 

0EgB5 


005440 

001401 


BED 

,*4 
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005442 

104400 


0ECB5i 

HUt 



005444 

104000 



SCOPE 






1 CHECK 

UNARY WORD OPS USJNB 

ADDRESS mode 6 (PC) 
iPRESEt OAtA s 0 

005446 

005027 


CUR 

(PC)* 

005450 

000000 


UWM6I 

.WORD 

0 

J RESERVED FOR DATA 

005452 

010700 



MOV 

PC. R0 


005454 

024040 



CMP 

»(R0)i*(R0i 

JR0 POINTS TO DATA WORD 

005456 

000277 



see 



005460 

006167 

177764 


RQU 

UWM6 

}(R0)9000001|CC90000 

005464 

103403 


8CS 

R0W6 


005466 

102402 



8VS 

ROW 


005470 

001401 



BES 

ROU6 


005472 

100001 



BPU 

.*4 


005474 

104400 


R0C6I 

HUt 



005476 

005167 

177746 


COM 

UWM6 

) (R0)»177776, CC«1001 

005502 

103002 



BCC 

C0M6 


005504 

102401 



BVS 

C0M6 


005506 

100401 



BMI 

,*4 


005510 

104400 


C0M6I 

HUt 
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005912 

006267 

177732 


ASR 

UWM* 

MR0)«177777, CC»1010 

005516 

103402 



BCS 

ASR6 


009520 

102001 



BVC 

ASR6 


005522 

100401 



SMI 



005524 

104400 


ASR6I 

HIT 



005526 

000277 



sec 



005530 

005467 

177714 


NE8 

U«M6 

I ( R0 ) 9000001 , GC-0001 

005534 

103003 



see 

NESi6 


005536 

102402 



BVS 

NEG6 


005540 

001401 



BEQ 

NE26 


005542 

100001 



BPU 

.44 


005544 

104400 


NEG6I 

HUT 



005546 

000277 



see 



005550 

006067 

177674 


RQR 

UWM6 

J (R0 ) 4100000, CC91001 

005554 

103003 



BCC 

R0R6 


005556 

102402 



BVS 

RQd6 


005560 

001401 



BEQ 

R0R6 


005562 

100401 



BMJ 

,*4 


005564 

104400 


R0R6I 

HUT 



005566 

005667 

177656 


SBC 

UWM6 

|(R0)f077777, CC»0010 

009572 

103402 



BCS 

SBC6 


005574 

102001 



BVC 

SBH6 


005576 

100001 



BPU 

.44 


005600 

104400 


SBC6I 

HUT 



005602 

000242 



cuv 



005604 

005267 

177640 


INC 

g W M6 

l(R0)*100000 t CC>1011 

005610 

103403 



BCS 

INC6 


005612 

102002 



BVC 

INC6 


005614 

001401 



BEQ 

JN«6 


005616 

100401 



BMJ 

.45 


005620 

104400 


INC6 1 

HUT 



005622 

006267 

177622 


ASR 

UWM6 

1 (R0)®140000, CC*1010 

005626 

000261 



SEC 



005630 

006367 

177614 


ASU 

UWM6 

1 <R0)»100000, CC»1001 

005634 

103002 



BCC 

ASU6 


005636 

102401 



BVS 

ASU6 


005640 

100401 



BMJ 

,44 


005642 

104400 


ASL.6I 

HUT 



005644 

305367 

177600 


dec 

UWM6 

J <R0)«077777, CC«0011 

005650 

103002 



BCC 

DEC6 


005652 

102001 



BVC 

DE06 


005654 

100001 



BPl 

,44 


005656 

104400 


DEC6I 

HUT 



005660 

005567 

177564 


ADC 

UWH6 

Jt*0)9i00000i CC>1010 

005664 

103402 



BCS 

AQC6 
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005666 

102001 



BVC 

ADQ6 


005670 

100401 



Bm I 

,*4 


005672 

104400 


ADC6I 

HUT 



009674 

000242 



CUV 



005676 

000367 

177946 


SWAB 

UWM6 


005702 

100401 



BM! 



005704 

104400 



HUT 



005706 

022710 

000200 


CMP 

#200, (R0> 


005712 

001401 



BEQ 



005714 

104400 



HUT 



005716 

104000 



SCOPE 



005720 



1 CHECK 

UNARY 

BYTE DPS (EVEN/ODO) 

USING ADDRESS MODE 6 (PC) 

012700 

006262 


MOV 

#UBM6,R0 

005724 

063700 

001004 


ADD 

•#U ACTOR | R0 

|R0 POINTS TO ADDRESS OF DATA 

005730 

009067 

000326 


CUR 

UBM6 

(CLEAR DATA 

005734 

000277 



see 



005736 

000244 



CUE 



005740 

105767 

000316 


TSTB 

UBM6 


005744 

103403 



BCS 

TSTB6 


005746 

102402 



BVS 

TSTB6 


005750 

001001 



BNE 

TSIB6 


005752 

100001 



BPU 

,♦4 


005754 

104400 


TSf B6 » 

HUT 



005756 

000297 



CCC 



005760 

109767 

000277 


TSTB 

UBM6+1 

l TEST ODD ByTE 

005764 

001401 



BEQ 

.♦2 

005766 

104400 



HUT 



005770 

109667 

000266 


SBCB 

UBM6 

) ( R0 ) 1000000 | CC90100 

005774 

103402 



BCS 

SBCB6 

005776 

102401 



BVS 

SBC86 


006000 

001401 



BEQ 

,*4 


006002 

104400 


SBCB6I 

HUT 



006004 

000261 


isi 

SEC 



006006 

109267 

000250 


INCB 

UBM6 

IUOOP UNTIL’ 1 R0) i077600» CO«10|1 

006012 

100403 



BMJ 

21 

006014 

105567 

000243 


ADCB 

UBM641 

IJNCB INST INCREMENTS EVEN BYTE 

006020 

000771 



BR 

IS 

1 ADCB INCREMENTS OOO BYTE 

006022 

103001 


2Si 

BCC 

INCB6 

006024 

102401 



BVS 

,♦4 


006026 

104400 


INfiB6 1 

HUT 



006030 

106367 

000226 


aslb 

UBH6 

l(R0)i077400, CC»0111 

006034 

103003 



BCC 

ASUB6 

006036 

102002 



BVC 

ASNB6 


006040 

001001 



BNE 

ASUB6 


006042 

100001 



BPU 



006044 

104400 


ASLB61 

HUT 



006046 

000242 



CUV 



006090 

105567 

000207 


ADCB 

UBM641 

J(R0)Pi00000, CC«1010 
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006034 

103402 


DCS 

A0C36 

006036 

102001: 


8VC 

ADCB6 

006060 

100401 


BM! 

,44 

006062 

104400 

ADCB6I 

HLt 


006064 

000261 


SeC 

RORB 


006066 

106067 

000171 

UBM6H 

006072 

103402 


scs 

R0DB6 

006074 

102001 


sve 

R0RB6 

006076 

100401 


SM| 

,*3 

006100 

104400 

RQRB6 i 

HLt 


006102 

105167 

000154 

COM3 

UBM6 

006106 

103002 


BCC 

C0MB6 

006110 

102401 


sys 

C0HB6 

006112 

100401 

C0M66I 

BMf 

,44 

006114 

104400 

HLT 


006116 

000262 


SEV 


006120 

105467 

000137 

negb 

UBM6*1 

006124 

103002 


BCC 

NE6S6 

006126 

102401 


BV5 

NEGB6 

006130 

100001 


BPL 

,*i / 

006132 

104400 

NEGB6 l 

HLT 


006134 

106167 

000123 

ROLB 

UBM641 

R0LB6 

006140 

103402 


BCS 

006142 

102001 


BVC 

R0L86 

006144 

100401 


BMJ 

,43 

006146 

104400 

ROCBAi 

HLT 


006150 

106267 

000106 

ASRB 

UBM6 

006134 

103002 


BCC 

ASRB6 

006136 

102401 


BVS 

AS'JB6 

006160 

100401 


BMI 

,4# 

006162 

104400 

ASRB6I 

HLt 


006164 

103267 

000072 

INC8 

UBH6 

006170 

103002 


see 

INCB6A 

006172 

102401 


BVS 

INCB6A 

006174 

001401 


BEO 

,44 

006176 

104400 

INCB6AI 

HLT 


006200 

105367 

000037 

d e cb 

UBH6*1 

006204 

103003 


BCC 

0ECB6A 

006206 

102402 


BVS 

DECB6A 

006210 

001401 


BEQ 

DECB6A 

006212 

100401 


BH| 

, *4 

006214 

104400 

DECB6AI 

HLt 


006216 

000367 

000040 

SWAB 

UBM6 

006222 

103401 


BCS 

SWAB6 

006224 

100401 


BMI 

i *5 

006226 

104400 

SWAB6S 

HLt 
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I {R0)#i400§0, CC»1»10 


MR0)il40377 C(?il001 


MR0>«040377, CC»0001 


)<R0>«i00777, CC»1010 


) ( R0 ) #100777 | CC*100l 


MR0)¥100400! CC«0101 


If R 0 ) *1000001 CC*1001 


l(R0)§000200, CCU000 
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006230 

106167 

000026 

RQLB 

UBM6 

006234 

103002 


BCC 

R0HB6A 

006236 

102001 


BVC 

RQLB6A 

006240 

001401 


BED 

.*3 

006242 

104400 


R0CB6AI HLT 


006244 

005767 

000012 

TST 

U8M6 

006250 

103402 


BCS 

TST6 

006252 

102401 


BVS 

TSI6 

006234 

001401 


BEQ 

,*4 

006256 

104400 


TSf 6 1 HLT 


006260 

000401 


BR 

,44 

006262 

000000 


U8M6I .WORD 

0 

006264 

104000 


SCOPE 


006266 

010702 


HOV 

PC 7 R2 

006270 

062702 

000012 

ADO 

#12, R2 

006274 

012707 

001132 

MOV 

#R£LOC|PC 

006300 

000240 


NOP 



10000000000000 LAST ADDRESS OF 


I { R0 ) *000000 1 CC-0U1 


|(R0>#000000, CC90100 


JRESERVE a word 
JWORD RESERVED FOR DATA 


1 50 relocate program code 

JPRQGRAM RETURNS HERE*2 
CODE TO BE RELOCATED 00000000000 
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iiiiiiiiiilui 

FIRST ADDRESS 

TO BE RELOCATED lillUill 

006302 

010700 


RELli MOV 

PCiR0 

(OCT PC 

006304 

005740 


7SY 

• <R0> 

1 R0 CONTAINS THE ADDRESS Of REL1 

006306 

010037 

001010 

MOV 

R0$t#FRSTAO 

(SAVE 

006312 

010700 


MOV 

PC7R0 

1 GET CURRENT PC 

006314 

162700 

006314 

SUB 

#,IR0 

iSUBTRACt RELOCATION FACTOR 

006320 

010037 

001004 

MOV 

R0?P#FACTQR 

(SAVE RELOCATION FACTOR 

006324 

010701. 


MOV 

PG7R1 

1 SET NEW SCOPE PTR 




IChECK UNARY WORD ops USIN6 ADDRESS MODE 7 

006326 

000403 


BR 

yw7 

(RESERVE 3 WORDS FOR AOORESSES 6 DATA 

006330 

000000 


.WORD 

0 

(CONTAINS ADDRESS OF UWM7 

006332 

000000 


UWM7! .WORD 

0 

(CONTAINS DAtA 

006334 

000000 


.WORD 

0 

(Contains Address of uwmt 

006336 

010700 


UW7 1 MOV 

PC7R0 


006340 

005740 


tst 

*<M0> 


006342 

005740 


TST 

«(«0> 


006344 

005040 


CLR 

*«M0> 

(CLEAR TEST OAtA 

006346 

010002 


MOV 

R04R2 


006350 

010240 


MOV 

R?»*<H0) 

(SET UP ADDRESS 

006352 

005720 


TST 

(R0J + 

(MOVE RO TO NEXT ADDRESS 

006354 

005720 


TST 

{R0>* 


006356 

010210 


MOV 

R2» (R0) 

(SET NEXT ADDRESS 

006360 

010200 


MOV 

R2|R0 

( SET R0 POINTING TO OATA 

006362 

000277 


see 



006364 

000244 


CUE 



006366 

005772 

000002 

TST 

*2(2) 

( (R 0 >* 000000 , ec -0100 

006372 

001401 


BED 

, *4 


006374 

104400 


HUT 



006376 

000277 


see 



006400 

005672 

177776 

SBC 

**2<2) 

l(R0)«177777, CCil001 

006404 

103002 


see 

SBC7 


006406 

102401 


BVS 

SBC7 


006410 

100401 


BMI 

»y4 


006412 

104400 


SBC7I HLT 



006414 

000277 


see 



006416 

000241 


CLC 



006420 

006372 

000002 

ASL 

• 2|2) 

((R05*177776 i CC«1001 

006424 

103002 


ace 

ASL’7 


006426 

102401 


BVS 

ASL7 


006430 

100401 


BMI 

,44 


PS06432 

104400 


ASL7I HUT 



006434 

000257 


ccc 



006436 

005372 

000002 

DEC 

• 2(2) 

»(R0)«177775, CC-1000 

006442 

103402 


BCS 

0EC7 


006444 

102401 


BVS 

QE57 


006446 

100401 


BMI 



006450 

104400 


DEC7I HLT 
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006452 

000262 


SEV 



006454 

006272 

177776 

asr 

**2(2) 

J(R0)«177776, CC*1001 

006460 

103082 


bcc 

ASR7 


006462 

102401 


BVS 

ASR7 


006464 

100401 


BMI 



006466 

104408 

ASR7I 

HLT 



006470 

000241 


CLC 



006472 

000262 


SEV 



006474 

006072 

177776 

RQR 

•*2<2l 

( (R0)*077777, CCP0000 

006500 

101402 


BIOS 

RQR7 

(BRANCH fr C OR Z JS SET 

006902 

102401 


BVS 

R027 


006504 

100001 


BPL 

.*3 


006506 

104400 

R0R7I 

HLT 



006910 

000262 


SEV 



006512 

005472 

800002 

nEO 

•2(2) 

( ( R0 ) •100001 i CCil001 

006516 

103082 


BCC 

NES7 


006520 

102401 


BVS 

NE87 


006322 

100401 


BM| 

,♦4 


006524 

104400 

NE87 1 

HLf 



006526 

000250 


CLN 



006530 

800372 

177776 

S W AB 

**2(2) 

( ( R0 ) *000600 | CC«1000 

806534 

103401 


BOS 

SWAB7 


006536 

100401 


BMS 

,*4 


806540 

104400 

SWAB7 i 

HLT 



806542 

000262 


SEV 


HR0)«177l77, CCS1001 

006944 

003172 

800002 

COM 

•2(2) 

006550 

103002 


BCC 

C0M7 


006552 

102401 


BVS 

CQM7 


806554 

100401 


8HI 

,•3 


006556 

104400 

C0M7I 

HLT 



806560 

000372 

008002 

SWAB 

62(2) 

HR0)*0777?6 8 ec*10gi 

006564 

100401 


BMI 

. *4 


006366 

104400 


HLT 



006370 

0802 77 


see 


MR0)fS?7777| Cq«00i8 

006572 

085572 

177776 

ADC 

*»2(2) 

006576 

103402 


BCS 

AQC7 


006600 

102401 


svs 

A0C7 


006602 

100001 


3PL 



006604 

104400 

ADD7I 

l*Lf 



006606 

009272 

000002 

INC 

SVC 

82(2} 

y (R8)$10i800{ 00*1110 

006612 

182081 


INC7 


006614 

108401’ 


BMI 



806616 

. 104400: 

IND7I 

HUT 



006620 

008257 


cc§ 


1 (R0 1*000008 i 00*0111 

006622 

086172 

177776 

ROL 

•sg(2) 
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0Z9KCD 

006636 

103002 


BQC 

RQU7 





006690 

102001 


BVC 

RQU7 . 





006632 

001401 

R 0 1! 7 1 

beq 






006634 

104400 

HU 






006636 

104000 


SCOPE 



/ 




009720 

(CHECK 

UNARY 

BYTr OPS USING ADDRESS MODE 7 

1 



006640 


■T8.T 



v 

J 


006642 

009210 


INC 

(R»> 

(WORD FQL'LOWfNG UWM7 CONTAINS ADDRESS 



006644 

009740 


TST 

•<R0) 

lOP ODD SvfE, R0 POINTS TO DATA WORD 




006646 

009010 


CLS 


(PRESET Data 




006690 

010701 


MOV 

PCVRi 

(SET SCOPE PTR 






I NOTE i 

•2(2) 

REFERENCES 

THE ODD BYTE, AND #42(2) REFERENCES THE EVEN BYTE, 




006692 

00026? 


♦SECISEV 

(!r9)«17^400 4 CC*1001 




006694 

109672 

000002 

SBCB 

»2|2? 




006660 

10300? 


see 

SBCB7 





006662 

102402 


BVS 

S8CB7 





006664 

001401 


1EQ 

SBSB7 





006666 

100401 


BMI 

>4 





006670 

104400 

S8CB7i 

HIT 






006672 

000277 


see 


(SET condition COOES 




006674 

105972 

177776 

ADCB 

•■2(2) 

MR0)«i77401, CC»0000 




006700 

103403 


BCS 

A0CB7 





006702 

102402 


BVS 

APCB7 





006704 

001401 


BEQ 

A0CB7 





006706 

100001 


BPL 

s *4 





006710 

104400 

AOC87! 

HUT 






006712 

105172 

177776 

comb 

•*2(2> 

?(R0)>177776, CC»1001 




006716 

103002 


see 

C0MB7 





006720 

102401 


BVS 

C0MB7 





006722 

100401 


BMI 

,*4 





006724 

. 104400 

COMB7 i 

HUT 






006726 

000241 


cue 


(CLEAR CARRY 




006730 

106072 

000002 

RQRB 

•2(2) 

1 (R0)*0777?6i CC«00U 

/f 



006734 

103002 


BCC 

ROBB? 





006736 

102001:. 


BVS 

R0RB7 





006740 

100001 


8PU 

,*4 




006742 

104400 

RQRB7 j 

HUT 






006744 

105272 

000002 

INCB 

• 2(2) 

J (R0>«100376, CC-1011 




006790 

103002 


BCC 

INCB7 





006792 

102001 


eve 

INCB7 





006754 

100401 

INfiB7i 

BM| 

i*3 





006796 

104400 

HUT 






006760 

105372 

177776 

decs 

•»2(2) 

|(R0)S100375, CC»|001 




006764 

103002 


BCC 

0ECB7 





006766 

102401 


BVS 

0EgB7 





006770 

100401 


BMI 

i*4 





006772 

104400 

OECB7J 

HUT 






■f 
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0Z9KC0 









006774 

106372 

000002 

ASUB 

•2(2) 

( (R0)f000375| CC«01U 



007000 

103002 


BCC 

AS B7 




007002 

102001 


BVC 

ASUB7 




007004 

00i401 


BEQ 

,*4 




007006 

104400 

ASCB7I 

HUT 





007010 

000241 


ClC 


(CLEAR CARRY 



007012 

106272 

177776 

ASRB 

• ■2(2) 

( ( R0 ) 1000376 j CC»1001 

. jT~^\ 


007016 

103002 


BCC 

AS5S7 


„ 5 , m '% 


007020 

102401 


BVS 

ASRB7 


■ *4 i 


007022 

100401 


BMI 

,*3 




007024 

104400 

ASRB7I 

Hit 





007036 

105472 

000002 

NEG8 

•2(2) 

( (R0)>000376, CCs0100 



007032 

103402 


BCS 

NECB7 




007034 

102401 


BVS 

NE&B7 




007036 

001401 


BEQ 

i*2 




007040 

104400 

NEGB7I 

HUT 





007042 

000262 


SEV 





007044 

106172 

177776 

rol,b 

• ■2 ( 2 ) 

( ( R0 ) *00374 j CC*1001 



007050 

103002 


BCC 

R0UB7 




007052 

102401 


BVS 

R0UB7 




007054 

100401 


BMI 

,*! 




007056 

104400 

RQLB7 i 

HUT 





007060 

105272 

177776 

INCB 

•»?(2) 

( (R0>«000375, CC«t001 



007064 

109272 

177776 

INOB 

•*2(2> 

((R0)P000376* CC«1001 



007070 

109572 

177776 

ADCB 

*■8(2) 

U*B)*MZZ97, CC«1000 



007074 

109172 

177776 

COMB 

•■4(2) 

( (R0)«000000j CC-0100 



007100 

001401 


BEQ 

i*4 




007102 

194400 


HUT 





007104 

104000 


SCOPE 







(CHECK 

BINARY 

OPS USJNO 

ADDRESS mode 0 



007106 

000277 


see 


(SET CONDITION COOES 



007110 

010700 


MOV 

PC7R0 

(R0fPCi CC6X001 



007112 

103002 


BCC 

M0V0 




007114 

102401 


BVS 

MOV0 




007116 

001001 


BNE 

,*«• 




007120 

104400 

MOV0I 

HUt 



4 


007122 

010002 


MOV 

R07R2 

v . IR2PR0 

1 y 


007124 

000262. 


SEV 


(SET V 



007126 

160002 


SUB 

R07R2 

(R21000000, BCI0100 



007130 

103402 


BCS 

SUBS 




007132 

10*401 


BVS 

SUB0 




007134 

001401: 


BEQ 

,*i 




007136 

104400 

SU80I 

HUT 





007140 

000244 


CU2 





007142 

010203 


MOV 

R27R3 

(R2»R3*00000«i CCf9100 



007144 

103401 


BCS 

MOV0A 
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Q2QKCD 


007146 

001401 


BEQ 



007190 

104400 

MOV0AI HLT 



007192 

000257 


CCC 



007194 

000272 


♦SEVSSEN 

i SET V 4 N 

007196 

020203 


CM* 

R27R3 

)R2iR3"000000, 0090100 

007160 

103403 


BOS 

CMR0 


007162 

102402 


BVS 

CMP0 


007164 

001001 


BNE 

CMS0 


007166 

100001 


BPL 



007170 

104400 

CMP0I 

HLf 



007172 

010002 


MOV 

R07R2 

I R0»R2 

007174 

010203 


MOV 

R2fR3 

Jr0«r2ir3 

007176 

060203 


ADO 

R2«R3 

lR3i2#R0 

007200 

006302 


asl 

R2 

|R2i2*R0 

007202 

020203 


CMR 

R2JR3 

|R2»R3*2«R0 

007204 

001401 


BEQ 

! *4 


007206 

104400 


HLT 


JERRORI QHECK ADD INSTRUCTION 



itme 

FOLLOWING 

SUBfEST SHIFTS A 

8JT THROUGH R2 AND R5 AND OOE! 



IBIT 

TEST (BIT) 

USING R2 AND R5, 


007210 

005002 


CLR 

R2 


007212 

005202 


INC 

R2 


007214 

000402 


BR 

2S 


007216 

006302 

IS) 

ASL 

R2 


007220 

100407 


BMt 

45 


007222 

010205 

2$) 

MOV 

R2j R9 


007224 

O00277 


see 



007226 

030205 


Bit 

R27R5 

)R2lR5 

007230 

103002 


see 

35 


007232 

102401 


BVS 

35 


007234 

001370 


BNE 

IS 


007236 

104400 

3Sj 

HLT 



007240 

010205 

4St 

MOV 

R2|R5 


007242 

000257 


CCC 



007244 

030209 


BIT 

R2i*R5 


007246 

100401 


BM I 

,** 


007250 

104400 


HLT 



007252 

005002 


CLR 

R2 


007254 

000277 


see 



007256 

050002 


BIS 

R07R2 


007260 

103002 


BOO 

BIS0 


007262 

102401 


BVS 

BI30 


007264 

001001 


BNE 



007266 

104400 

BIS0I 

HLT 



007270 

010003 


MOV 

R07R3 


007272 

000277 


SCO 



007274 

000244 


CLl 



007276 

040003 


BIC 

R07R3 


007300 

103003 


see 

B 1 50 


007302 

102402 


BVS 

9100 
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OZQKCD 


007304 

001001 


BNE 

8IC0 


007306 

100001 


BPL 

.♦4 


007310 

104400 

BJC0I 

HLT 



007312 

010004 


MOV 

R0IR4 


007314 

005104 


COM 

R4 


007316 

040004 


BIC 

R0 1 R4 


007320 

005104 


COM 

R4 


007322 

020004 


CMP 

R07R4 


007324 

001401 


BEQ 

, *4 


007326 

104400 


HLT 



007330 

010004 


MOV 

R07R4 


007332 

005104 


Com 

R4 


007334 

010403 


MOV 

R4»R3 


007336 

050003 


BIS 

R0*R3 


007340 

103001 


SCO 

0J30A 


007342 

100401 


BM I 

.*3 


007344 

104400 

BIS0A) 

HLT 



007346 

005203 


INC 

R3 


007350 

001401 


BEQ 

i +4 


007352 

104400 


HLT 



007354 

010304 


MOV 

R37R4 

}R3rR4>0 

007356 

009103 


COM 

R3 

IR3-177777 

007360 

000261 


SEC 


ISET C 

007362 

006004 


ROR 

R4 

) R4*100000 

007364 

060304 


ADD 

R37R4 

AQ90 

) R3H177777JR4 1077777, CCP00U 

007366 

103003 


BCC 

007370 

102002 


SVC 

ADD0 


007372 

001401 


BEQ 

AP90 


007374 

100001 


3PL 

«*4 


007376 

104400 

AOO0I 

HLT 



007400 

010700 


MOV 

PC7R0 

(R0)*i(R0)6 


007402 

022020 


CMP 


007404 

020007 


CMP 

R0IPC 


007406 

001401 


BEQ 

»*2 


007410 

104400 


HLT 



007412 

010700 


MOV 

PC7R0 


007414 

062700 000010 


ADD 

#10, R0 


007420 

010002 


MOV 

R0,R2 


007422 

020700 


CMP 

PCiR0 


007424 

001002 


BNE 

CMP0A 


007426 

020200 


CMP 

R27R0 


007430 

001401 


BEQ 

.*« 


007432 

104400 

CMR0A) 

HLT 



007434 

104000 


SCOPE 





1 CHECK 

BINARY 

BYTE OPS USING ADDRESS MODE S, 

007436 

012703 125252 


MOV 

#115252, R3 

lR3iR4«l25t50 t 
)R5il252i2, R4«125000 

007442 

010304 


MOV 

R3#R4 

007444 

140304 


BXCB 

R3|R4 

007446 

022704 125000 


CMP 

#125000, R4 


007492 

001401 


BEQ 

,*| 




Q29KC.I 

D2QKCD 


02QKC a C 

0I9KCD 


BASIC ll FAMILY INSTRUCTION EX?R, 


HASYU 27(959) l*iUUL.74 |t|40 PA9I 3? 


007454 

104400 


HUT 


(ERROR! lies FAILED 

007456 

005004 


CUR 

R4 

;R3il252|27 04*0 

007460 

190304 


B!|B 

R3|R4 

IR3P125252, *4*000252 

007462 

022704 

000252 

CMP 

«252<R4 

007466 

001401 


BEQ 

M 

1 ERROR! 9130 FAILED 

007470 

104400 


HUT 


007472 

007474 

110404 

022704 

177652 

MOVB 

CMP 

R4JR4 

(8177692* R4 

|R4«477692 

iMOyi ExTENOI THE SIQN 

007500 

001401 


be a 

,♦4 

007502 

104400 


HUT 


(ERROR! MOVB FAILED 

007504 

132704 

177525 

BITB 

*177525,14 


007510 

001401 


BEQ 

,74 


007512 

104400 


HUT 


(ERROR! BITB FAILED 

007514 

105104 


cqmb 

R4 

jR4*l775f5 

007516 

110404 


MOVB 

R4TR4 
#125, R4 

JR4*000125 

007520 

022704 

000125 

CMP 


007524 

001401 


BEQ 

,** 


007526 

104400 


HUT 



007530 

150304 


B I SB 

R37R4 

1 R3*125252« 04*000377 

007532 

105204 


INCB 

R4 


007534 

005704 


tsT 

R4 


007536 

001401 


BEQ 

, *4 


007540 

104400 


HUT 



007542 

104000 


SCOPE 






(CHECK BINARY 

OPS USING ADDRESS 

MODE 1 

007544 

000402 


BR 


(RESERVE TWO WORDS 

007546 

000000 


.WORD 

0 

(RESERVED POP SOURCE DATA 

007550 

000000 


.WORD 

0 

(RESERVED POP DESTINATION DATA 

007552 

010704 


MOV 

PC7R4 

007554 

005744 


TST 

«(R4> 


007556 

005044 


CUR 

» ( R 4 ) 

1 R4 POINTS TO DESTINATION DATA 

007560 

010403 


MOV 

R4iR3 

007562 

005043 


CUR 

MRS) 

JR3 POINTS TO SOUCE DATA 

007564 

005113 


COM 

(R3> 

1 (R3>fi777?7 

007566 

005214 


INC 

(RS) 

(<R4)s0000il 

007570 

000262 


SEV 


(SET V 

007572 

061314 


ADO 

(R3)»(R4) 

( (R3)f 177777 , (04)9000000, CC*010i 

007574 

103002 


BCC 

ADDl 


007576 

102401 


BVS 

ADD! 


007600 

001401 


BEQ 

. 44 


007602 

104400 


ADOll HUT 



007604 

000277 


see 



007606 

000250 


CUN 



007610 

021314 


CMP 

(R3).(R4) 

( (R3) *177777, <R4) *000000, CC»1000 

007612 

103403 


8CS 

CMPl 




/f A 

V. 



BASIC il FAMILY INSTRUCTION EXER, 


MACYU 27(155) i?*JUL*74 |i|4g RASE 40 


007614 

102402 


BVS 

CMPl 


007616 

001401 


BEQ 

CM?! 


007620 

100401 

CMRlI 

BM l 



007622 

104400 

HUT 



007624 

000277 


SCO 



007626 

000244 


CU2 



007630 

031314 


BIT 

(R3MR4) 

J< R3 ) *177777, (R4) *000000, CC*010l 

007632 

103002 


BCC 

BIT1 


007634 

102401 


BVS 

Bill 


007636 

001401: 

BJfll 

BEO 

,♦3 


007640 

104400 

HUT 



007642 

000277 


sec 



007644 

000245 


★CLCICU2 


007646 

005114 


COM 

(R4) 

((R4)*177777 

007650 

161314 


SUB 

(R3)#(RA> 

l (P3)il77777, (R4)*000000, CC*0100 

007652 

103402 


80S 

SU«1 


007654 

102401 


BVB 

sun 


007656 

001401 


BEQ 



007660 

104400 

SUB1I 

HUT 



007662 

105013 


CURB 

(R3) 

MRS) f 177400 

007664 

000313 



(R3) 

J(R3)*000377 

007666 

000270 




007670 

011314 


MOV ' 

(R3) , ( R4 ) 

1(0$) 9(04) 4000377 

007672 

100001 


9PL 


007674 

104400 


HUT 



007676 

000314 


SWAB 

<R4) 

MR3)*000377,<R4)*177400 

007700 

000263 


*S£C ! SEV 

(SET C 4 V 

007702 

051314 


BIS 

(R3),(R4) 

( (R3)*000377, <R4)*177777, CC*1001 

007704 

103002 


Bee 

8121 

007706 

102401 


BVS 

8121 


007710 

100401 


BMI 

,*3 


007712 

104400 

BISK 

HUT 



007714 

041314 


BJC 

<R3 >i(R4> 

( (R3)*000377, (R4)*177400, CC«1801 

007716 

103002: 


BCC 

BIC1 


007720 

102401 


BVS 

9IC1 


007722 

100401 


BMI 

• t# 


007724 

104400 

BlCll 

HUT 




007726 

000262 

SEV 


1 (p|)P000377 , (r4)S177400, CC*0001 

007730 

021314 

CMp 

(Rl) # (R4) 

007732 

103003 

BCD 

CMP1A 


007734 

102402 

BVS 

CMP1A 


007736 

001401 

BEQ 

CMP1A 


007740 

007742 

100001 

104400 

BPU 

CMPlAi HUT 

,74 


007744 

005013 

cur 

(R3) 

1(03)1000000 

007746 

000261: 

SEC 



007750 

006013 

011314 

ROR 

(R3> 

1(03) *100000 

007752 

MOV 

CR|)i (R4) 

l(03|i (04)1100000 


"KJ 





D20KC*C 

DZQKCO 


DZQKC-C 

DZQKCD 
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007754 

005114 


COM 

(HR) 

1 (R4) *077777 

007756 

161314 


SUB 

<R3?#(R4> 

5 (R3)*i00000, (R4)*177777, 60*1011 

007760 

103002 


BCC 

SU01A 


007762 

102001 


BVC 

SUilA 


007764 

100401 


BM J 

,*4 


007766 

104400 

SUftlAi 

HUT 



007770 

000277 


see 



007772 

161314 


SUB 

(R3> i (R4) 

1 (R3)« 1000001 ( R4) *07 7777, CC*0009 

007774 

101402 


0LOS 

SUSlB 

(BRANCH IF C OR 1 IS SET 

007776 

102401 


8VS 

SUB1B 


010000 

100001 


BPL 



010002 

104420 

SUSlBi 

HUT 



010004 

211314 


MQV 

( R9 ) « ( R4 ) 

( (R3)*100000, (R4>?t00000, 00*1000 

010006 

001401 


BEQ 

moyi 


010010 

100401 


BM I 

.*3 


010012 

104400 

MOV1I 

HIT 



010014 

061314 


ADD 

(R3) » (R4) 

((R3)* 10 0000. (R4 >4000000, 6C*0U1 

010016 

103003 


BCC 

ADU1A 


010020 

102002 


BVC 

ADOIA 


010022 

001001 


BNE 

A081A 


010024 

100001 


BPL 

,*4 


010026 

104400 

AOOlAi 

HLT 



010030 

005113 


COM 

(R3> 

(<R3)*077777 

010032 

011314 


MOV 

(R3),(R4) 

1 (R4)»077777 

010034 

061314 


ADD 

(R?),(R4) 

J <R3)i077777, (R4)fl77776, CC*1019 

010036 

103402 


BCS 

ADQlB 


010040 

102001 


BVC 

ADOlB 


010042 

100401 


BM! 

,*3 


010044 

104400 

ADOlBl 

HLt 



010046 

062714 000002 


ADO 

#27(R4) 


010052 

005714 


TST 

(R4) 

(CHECK FINAL RESULT 

010054 

001401 


BEQ 

.4*4 


010056 

104400 


HLT 



010060 

104000 


SCOPE 





(CHECK 

BINARY 

BYTE OPS USJNC 

address mode l 

010062 

000402 


BR 

,*# 


010064 

000000 


.WORD 

0 


010066 

000000 


.WORD 

0 


010070 

010705 


MOV 

PCJRS 


010072 

005745 


TST 

MRS) 


010074 

005045 


CLR 

MRS) 

1 (R9)f 000000 

010076 

010502 


MOV 

R5.R2 


010100 

005042 


CLR 

«(R2> 

1 (R2)»000000 

010102 

005202 


INC 

R2 

(R2 POINTS TO ODD BYTE 

010104 

105112 


COMB 

(R2) 

( (R2> *177400 

010106 

000277 


sec 



010110 

111215 


mqvb 

<R2), (R5) 

) (R2)«177400, (RS^BBSTT.CCMBBi 


BASIC 11 FAMILY INSTRUCTION EXER, MACY11 27(655) 19»JULs74 11 ? 40 FACE 42 


5110112 

103005 


BCC 

movbi 

010114 

102404 


8VS 

MQVB1 

010116 

001403 


BEQ 

mgybi 

010120 

100002 


BPL 

MOVBI 

010122 

105215 


JNSB 

<R*J 

010124 

001401 


BEQ 


010126 

104400 

MQVBli 

HLT 


010130 

106312 


ASCB 

tRI) 

010132 

102376 


BVC 

,»8 

010134 

106012 


RORB 

(RS 1 ) 

010136 

105315 


QECB 

<R3> 

010140 

106015 


RORB 

(R*> 

010142 

000257 


cce 


010144 

121312 


CMPB 

<RS),(R2) 

010146 

102001 


BVC 

CMPB1 

010150 

100401 


BM | 

,4u 

010152 

104400 

CMPBli 

HLT 


010154 

005003 


CLR 

R3 

010156 

000261 


SEC 


010160 

006003 


RQR 

R3 

010162 

050315. 


BIS 

R37(R5> 

010164 

000273 


★SECISEVJSEN 

010166 

131215 


BITS 

(R4)i(R3) 

010170 

103002 


BCC 

BJTSl 

010172 

102401 


8VS 

SITBi 

010174 

001401 


BEQ 

,P4 

010176 

104400 

Bit 81 i 

HLt 


010200 

131215 


8 1 SB 

(R2) * (R5) 

010202 

103001 


see 

BlsBl 

010204 

100401. 


BM! 

,«4 

010206 

104400 

B 1 881 i 

HLt 


010210 

141215 


ilCB 

(R2) * (R3) 

010212 

103002 


see 

BICB1 

010214 

001401: 


BEQ 

BICB1 

010216 

100001 


BPL 

V*I 

010220 

104400 

81631 f 

HLT 


010222 

103112 


COM3 

(R25 

010224 

181213 


CMPB 

(RS) i (R5) 

010226 

001401 


BEQ 

,#4 

010230 

104400 


HLT 


010232 

141512 


BIOS 

(RS) f CRB) 

010234 

001002. 


BNE 

eim* 

010236 

105712 


TSTi 

(R§) 

010240 

001401 


BEQ 

>4 

010242 

104400 

BI681A! 

HLT 


011244 

000402. 


BR 


010246 

000000 


.WORD 

0 


(CHECK RESULT 


(SHIFT <R2} UNTa 

><R2)f000000 

((R2)fl00000 

|<R5)«00377 

|{R5)f000i77 

( (R5)»000177, (R?)S100000 f 6C"1010 


|R3fl00000 
ltR5)«100l77 
(SIT C,V, t H 

((R2) *100300 i (R5) *100177, CC»0t0t 


J (R2)fl00000» (R5) *100377, CC-1001 
MR2)S100000( (R5)I100177 # CC*0i01 


f (R2)t877*«0« «R5)*10il77 
l(R3)*i00l77 l (*2>*®§®000 s CC*0100 


(RESERVE TWO WORDS FOR DATA 
(SOURCE !*?A 
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qZQKCd 


010250 

000000 

t WORD 

0 

JDEST DAfA 

010252 

010705 

MOV 

PC7R5 


010254 

005745 

TST 

*<«5) 


010256 

105045 

CURS 

«(B5> 

IR5 POINTS TO SEST ODD BYTE 

010260 

010504 

MOV 

R5|R4 


010262 

105044 

CURB 

*<B4> 

|R4 POINTS TO SEST EVEN BYTE 

010264 

010403 

MOV 

R4|R3 


010266 

105043 

CURB 

• <R3> 

|R3 POINTS TO SOURCE ODD BYTE 

010270 

010302 

MOV 

R34R2 


010272 

105042 

CURB 

*(R2> 

)R2 POINTS TO SOURCE EVEN BYTE 





JCOMMENTS ARE 

LEAST SIGNIFICANT 4 BITS OF BYTES 

POINTED 



|R4, AND RS RE 

spectiveuy and 

THE REMAINING SITS 

ARE BIS 

010274 

000261 

SEC 


1 SET CARRY 






l(R2)i(R3)i(R4> 

<R5) 

010276 

106112 

RQCB 

(R2) 

10001, 000070000 

0000 

010300 

111214 

MOVB 

(R|) i (R4) 

j000i, 0000, mi 

0000 

010302 

106112 

ROL.B 

(R?> 

J0010, 0000i000i 

0000 

010304 

111213 

MOVB 

(R?) , (RS) 

10010, 00l0t000| 

0000 

010306 

106112 

ROCB 

(RS) 

10100,001010001 

0000 

010310 

111315 

MOVB 

(H*>,<R9> 

10100,0010,0001 

0010 

010312 

106112 

RQLB 

(R2) 

11000, 0010,0081 

0010 

010314 

106H3 

ROUS 

(RS > 

11000,0100,’ 0001 

0010 

010316 

151215 

B I SB 

(R|)»(R5) 

11000,0100:0001 

1010 

010320 

131512 

BITS 

(R*),(R2> 

11000,0100,0001 

1010 

010322 

001426 

BED 

BIN! 



010324 

151314 

B I SB 

(R3), (R4> 

U000,0100,010f 

1010 

010326 

131413 

BITS 

(RS)»(R3> 

11000,0100:010! 

1010 

010330 

001423 

BEQ 

BIN1 



010332 

105213 

INCB 

<R*> 

11000,0101:010! 

1010 

010334 

121314 

CMPB 

(Rf)*(R4) 

11000,0101,010! 

1010 

010336 

001020 

BNE 

BINS, 



010340 

106113 

ROtB 

(RS) 

)1000,i010:010l 

1010 

010342 

121315 

CMPB 

(R?)i (R5) 

I1000,10i0;0l0i 

1010 

010344 

001015 

BNE 

BIN1 



010346 

106212 

ASRB 

(R$) 

j0100,1010:010l 

1010 

010350 

131214 

BITS 

(R2),(R4> 

10100,1010,010! 

1010 

010352 

001412 

BED 

BINl 



010354 

106015 

RQRB 

(R?> 

10100, 1010:0101 

0101 

010356 

121415 

CMPB 

(R4 ) , ( R5> 

10100,1010,0101 

0101 

010360 

001007 

BNE 

BIN1 



010362 

105314 

DECS 

CR4) 

10100,1010:0100 

0101 

010364 

141214 

BICB 

(R2)» (R4> 

10100,1010,0000 

0P1 

010366 

001004 

BNE 

BINl 



010370 

111314 

MOVB 

(R*MR4> 

10100, 1010,1010 

0101 

010372 

106213 

ASRB 

(R3) 

10100,0101,1010 

0101 

010374 

141315 

BICB 

(R^)i(R 5) 

10100,0101:1010 

0181 

010376 

00i40i 

BEQ 

,*4 



010400 

104400 

B INI 1 HUT 




010402 

104000 

SCOPE 






j check binary word ops usjng- address mode ? « a 
010404 010409 MOV R4?R5 llct DESTINATION REGISTER 

010406 012715 000001 MOV 61HR5J 


/f 

: 



DZQKCbC BASIC tl FAMIUY INSTRUCTION EXER, MACYil 27(455) 19|JU(,.74 il}40 PAGE 44 

9ZOKCD 


010412 

012712 177777 


MOV 

#•1, (R?) 


010416 

000257 


CCC 



010420 

000262 


SEV 


J (R2) *177777, (R5)i 000008, CC*0101 

010422 

062225 


ADO 

<R»)*«(R5)* 

010424 

103002 


0CC 

AP82 


010426 

102401 


BV8 

ADW2 


010430 

001401, 


BEQ 

,*3 


010432 

104400 

AD02I 

HUT 



010434 

000262 


SEV 


) SET V 

010436 

024527 000001 


CMp 

•<r5),*1 

1 (R5)b000000, 00*1801 

010442 

103002 


BCC 

CMP2 


010444 

102401 


BVS 

CMP2 


010446 

100401 


8M! 

,* 


010450 

104400 

CMP2I 

HUT 



010452 

054225 


«IS 

«{ R2 ) , (R5)6 

1 (R2)*177777, (RS) *177777, CC«1001 

010454 

103001 


see 

8112 


010456 

108401 


9M) 



010460 

104400 

B 192 1 

HUT 



010462 

000277 


see 



010464 

000244 


cuz 



010466 

162245 


SUB 

<R3)*,«<R5l 

J(R2)ll 77777, {R5)*000000, CC*0J00 

010470 

103402 


80S 

SU32 

010472 

102401 


BVS 

5UB2 


010474 

001401 


BEQ 

i *A 


010476 

104400 

SUB2I 

HU? 



010500 

009442 


NEQ 

»(R2) 

I (R2)f 000001 

010502 

005115 


COM 

<R5) 

) (R5)«177777 

010504 

000277 


see 



010506 

000250 


CUN 



010510 

042225 


sic 

<R2)*i(R5>* 

{ <52)1000001, (R5)*177776, CC-1001 

010512 

103003 


BCD 

B 1 02 


010514 

102402, 


BVS 

BIS2 


010516 

001401 


SCO 

3102 


010520 

100401 


BMI 

,*4 


010522 

104400 

BIC2I 

HUT 



010524 

012742 125252 


MOV 

6125252, «(R2) 


010530 

012245 


MOV 

(R$)*i*iR5I 


010532 

009185: 


COM 

(R9$ + 

t ( R5 >*050525 

010534 

000262 


m 



010536 

034245; 


•(R2),«(R5) 

1 (R2)il25252,(R5)t0525|5, CC»0101 

010540 

103002 


see 

8IT2 


010542 

102401 


BVS 

BII2 


010544 

001401; 


BEQ 

.45 


010546 

104400; 

BXfZI 

HUT 



010550 

000262: 


SEV 


) (R2) 1125252, (r5) 1177777, CC»1001 

010552 

052225: 


sis 

(R2)4,(R5)6 

010554 

103002; 


BCC 

BI82A 


010556 

102401 


SV8 

8II2A 


010560 

100481 


BMI 







DZQKCeC 

OZQKCO 


DZQKCeC 

OZQKCD 


BASIC II FAMILY INSTRUCTION EXER, MACUl 2 1V#UUU»74 U|40 RAISE AS 


010562 

104400 


BI92AI Hut 



03.0964 

042749 

125252 

BID 

mi85292,MR5> 

1 ( R5) R052529 

010970 

005129 


Cf)H 

«RS>* 

l(R9>»125252 

010972 

024249 


CKP 

• <«2>iMR51 


010974 

001401 


BED 



010976 

104400 


HUT 



010600 

005012 


CUR 

m) 


010602 

005122 


COM 

(Hi)* 

HR2)*177777 

010604 

162742 

000001 

SUB 

*ir»«R?) 

1 1*2) *177776, CC*1000 

010610 

103402 


8CS 

SU&2A 


010612 

102401 


BVS 

SUB2A 


010614 

100401 


BMI 

.*« 


010616 

104400 


SUB2AI HUT 



010620 

104000 


SCOPE 



010622 

010782 


MOV 

PCVR2 

IGET CURRENT PC 

010624 

010205 


MOV 

R2TR9 

IMOVE TO R9 

010626 

124245 


ISt CMP8 

*»<R2> i»(R5| 

ICOMPARE AtX PREVIOUS MEMORY ADDRESSES 

010630 

001401 


BEQ 

,*4 


010632 

104400 


hlt 


lERRORl 

010634 

020237 

001010 

CMP 

R2, PPFRST AO 

ICHECK FOR LOW LIMIT 

010640 

001372 


BNE 

IS 


010642 

104000 


SCOPE 






ICHECK BINARY 

BYTE OPS USING Apo^E 33 MODES 244, 

010644 

000402 


SR 

,*6 

IRESERVE TWO w0*0 I * 3 

010646 

000000 


, WORD 

0 

J SOURCE OAfA 

010690 

000000 


.WORD 

0 

J DESTINATION DATA 

010652 

010703 


MOV 

PC?R3 


010654 

005743 


TST 

»<R3> 


010656 

112743 

000200 

Move 

#2%0,»(R3) 


010662 

112743 

000377 

MOVB 

#377,.(R3| 

1 (R3)»100377 

010666 

010304 


MOV 

R3«R* 


010670 

112744 

000177 

MOVB 

#177,»IR4> 


010674 

112744 

000000 

MOVB 


1 (R4)p077408 

010700 

001401 


BEQ 

* ♦ J 


010702 

184400 


HUT 



010704 

152324 


8 1 SB 

«R3)*, (R4>* 

1 <R3)ii003T7, (R4)i077777 

010706 

100401 


BM! 

, *4 


010710 

104400 


HUT 



010712 

122324 


cmpb 

«R3)*i(R4>* 


010714 

103402 


BCS 

CMPB2 


010716 

102001 


BVC 

CMPB2 


010720 

100001 


BPU 

, *4 


010722 

104400 


CMPB23 HUT 



010724 

000261 


sec 



010726 

134344 


BITB 

» ( R3 ) * » ( R4 ) 


010730 

103002 


BCC 

B l TB2 


010732 

102401 


BVS 

8110? 



BASIC 11 FAMILY 

INSTRUCTION 

EXER , 

MACYh 275653) 19.JUL, 

010734 

001401 



BEQ 

>« 

010736 

104400 


BITB2I 

HUT 


010740 

000244 



cuz 


010742 

144344 



BIOS 

»<R3)««(R4t 

010744 

001401 



BEQ 


010746 

104400 



HUT 


010750 

104000 



SCOPE 





ICHECK 

BINARY 

WORD OPS USING A! 

010752 

000404 



8R 

2S 

010794 

000000 



.WORD 

0 

010756 

000000 



.WORD 

0 

010760 

000000 



.WORD 

0 

010762 

000000 



.WORD 

0 

010764 

810701 


2S1 

MOV 

PC7R1 

010766 

010100 



MOV 

Rli R0 

010770 

024040 



CMP 

»tP0)i«(R0) 

010772 

010005 



MOV 

R0.R5 

010774 

024545 



CMP 

«(R9) |S<R5| 

010776 

010015 



MOV 

R0, {R9> 

011000 

018502 



MOV 

R5,R2 

011802 

010004 



MOV 

R07P4 

011004 

003740 



TST 

• {R0J 

011006 

010003 



MOV 

R0TR3 

011010 

010042 



MOV 

R0l><R2) 

011012 

005013 



CUR 

IR3) 

011014 

003014 



CUR 

«R4) 

011016 

000277 



see 


011020 

000244 



cuz 


011022 

163235 



SUB 

*iR2)*,»<R3)* 

011024 

103402 



BCS 

SUBS 

011026 

102401 



SVS 

SUBS 

011030 

001401 



BEQ 

.*4 

011032 

104400 


SU33I 

HUT 


011034 

052752 

100000 


SIS 

P100000, P.IR2) 

011040 

062755 

000001 


ADD 

#Ut"»<R9> 

011.044 

163235 



sua 

*«P2)*,0(P9)A 

011046 

103002 



BCC 

SUS3A 

011050 

102801. 



BVC 

SUS3A 

011052 

100401 



BMI 

.♦3 

011054 

104400 


SU93AI 

HUT 


011056 

005414 



NEg 

(R*> 

011060 

033255 



BIT 

M<R2)«M(R9) 

011062 

001401 



BEQ 

,44 

011064 

104400 



HUT 


011066 

023235 



CMP 

•102)4, P(R3>* 

011070 

182401 



BVS 

,44 

011072 

104400 



HUT 


011074 

005132- 



COM 

0>*iR2l 

011076 

000237 



cce 



I lR3)»100377»{R4)f077400 


DRESS HOPES 3 & 5, 

I RESERVE SPACE FOR DATA AND ADDRESSES 
ICONTAINS ADDRESS OF SOURCE DATA 
f CONTAINS AD5RESS OF OEST DATA 
| CONTAIN! SOURCE DATA 
ICONTAINS 6EST DATA 

I SET SCORE PTR 
JASUUSt R0 

I R5 POINTS TO PEST DATA 
I SUB 4 FROM R5 

IR5 POINtS TO ADDRESS OF DCST DATA 

IR4 POINTS TO &EST DATA 

|R3 POINTS TO SOURCE DATA 
sR3 POINTS TO ADDRESS OF SOURCE DATA 
} PRESET SOURCE DATA 
J PRESET fiEST DATA 


I { R4 ) 9000011 


I (R4) §077777 

KRi)»100000,lR4)»0t77f7 



DZOKC.C BASIC U FAMIL* INSTRUCTION CXfR, MACVll 27(653) 19«JUL*74 11140 FADE 47 

OZQKCO 


011100 

011102 

063299 

102001: 


ADD 

SVC 

J|R|J*»0*(R3) 


011104 

100401 

AD03I 

SHI 

,** 


011106 

104400 

HLt 



011110 

000261 


SEC 



011112 

049239 


SIC 

#.(R2),P(R9)* 

((R3>I077777,(R4>«100000 

011114 

103001 


see 

nm 

011116 

100401: 

6!ft3t 

SHt 

i*6 


011120 

104400 

HLT 



011122 

005195 


COH 

•*(R5) 

I{R4)i0777t7 

011124 

023239 


CMP 

P(32>*»*<R9>4 

M R3) ■077777, (R4) 1077777 

011126 

001401: 


SEO 

i*6 


011130 

104400 


HLT 



011132 

104000 


SCOPE 





011134 

000406 


(CHECK BINARY BYTE OPS USjNC ADpRgSS MODES 3 6 5, 

BR IS (RESERVE SPACE FOR ADDRESSES i DATA 

011136 

000000 


, WORD 

0 

(CONTAINS ADDRESS OF SOURCE DATA (EVEN BYT?) 

011140 

000000 


‘.WORD 

0 

(CONTAINS ADDRESS OF SOURCE DATA (ODD BYT?) 

011142 

000000 


.WORD 

0 

(CONTAINS ADDRESS OF DEST DATA (EVEN BYTE) 

011144 

000000 


.WORD 

0 

(CONTAINS ADDRESS OF DEST DATA (ODD BYTE) 

011146 

000000 


.WORD 

0 

(CONTAINS SOURCE DATA 

011190 

000000 


.WORD 

0 

(CONTAINS DEST DATA 

011152 

010700 


lit MOV 

PCTR0 

(RBiADDRESS OF DEST DATA 

011194 

024040 


CMP 

*i50)i»<R0l 

011156 

010003 


MOV 

R0I R3 

|R3 « » 

011160 

010305 


MOV 

R3?R5 

(R9 h « 

011162 

005743 


TS? 

■ (33} 

1 SUB 2 FROM 43 

011164 

010043 


MOV 

R04MR3) 

)RS POINTS TO ADDRESS OF OEST DATA 

011166 

005213 


INC 

(R3J 

( ODD BYTE 

011170 

010043 


MOV 

R0t «{ R3 ) 

(EVEN BYfE 

011172 

010304 


MOV 

R3iRA 


011174 

009740 


TSY 

■ (R0 } 

|R0iADDRES5 OF SOURCE OATA 

011176 

010044 


MOV 

R0J»(R4) 

|R4 POINTS TO ADDRESS OF SOURCE DATA 

011200 

009214 


INC 

<R4i 

(OOD BYTE 

011202 

010044 


MOV 

R07»<«4) 

(EVEN BYTE 

011204 

000261 


SEC 


(SET CARRY 

011206 

012734 

177001 

MOV 

#177001, P(R4)* 

(Source Data # 100001 

011212 

112734 

000200 

MQVB 

#200, • ( R4 )# 

011216 

115433 


MOVB 

•"(R4) |P(R3)+ 

(DEST OAt A4000600 

011220 

119433 


MQVB 

• * jR4 ) ,#(R3 }+ 

011222 

103401 


BC8 

, *4 


011224 

104400 


HLT 


1 ERROR | MOV DOES AFFECT C BIT IN P5W 

011226 

022719 

000600 

CMP 

#600, <R9) 

(CHECK DEST BATA 

011232 

001401 


BEQ 

,*9 


011234 

104400 


HLT 


I ERROR l INCORRECT RESULT 

011236 

024343 


CMP 

•<R3Ji»(R3I 

(POINT R4 BACK TO EVEN BYTE 

011240 

193433 


BISB 

6(R4}*,P(R3)* 

(DEST DATAI100601 

011242 

153433 


BISB 

6 { 24 ) (R3J* 

011244 

022715 

100601 

CMP 

#l«0601j(R?J 

(CHECK RESULT 

011250 

001401 


BE9 

.*6 




02QKC b C BASIC U FAMILY INSTRUCTION EXER, MACYll 27(25?) l9 f JUL«7<l U|40 RASE 48 

0Z9KGD 


011252 

104400 


HlT 


011254 

145453 


9?GB 


011256 

145453 


BICB 

#• f R4 ) f { R3 } 

011260 

133433 


BITB 

6(34)#,*(R3)+ 

011262 

001002 


BNE 

B I TBS 

011264 

135433 


BltB 

ft»$R4) ,i(R3)* 

011266 

001001 


BNE 

, *4 

011270 

104400 

BITB3I 

hlt 


011272 

123453 


cmpb 

P(R4)*,P»<R3) 

011274 

001002 


BNE 

CMPB3 

011276 

123453 


CMPB 

»(R4)*,i-(R3} 

011300 

001401 


BED 

.*3 

011302 

104400 

CHPB3I 

hlt 


011304 

104000 


SCOPE 



ierroR! Incorrect dest data after bisb 



011306 000402 
011310 000000 
011312 000000 


(CHECK BINARY OPS using ADDRESS MODE 6 


BR 

SDlTAl i WORD 
DDATAi .WORD 


»*6 

0 


(RESERVE TWO UOCATJONS 
(RESERVED FOR SOURCE DATA 
I RESERVED FOR DESTINATION OATA 


011314 

013702 

001004 


MOV 

0H320 

010205 



MOV 

011322 

005065 

011312 


CLR 

011326 

012762 

000001 

011310 

MOV 

011334 

056265 

011310 

011312 lSi 

BIS 

011342 

006362 

011310 


ASl, 

011346 

006362 

011310 


ASL 

011352 

103370 



BCC 

011354 

022765 

052525 

011312 

CMP 

011362 

001401 



BED 

011364 

104400 



HLT 

011366 

012762 

177777 

011310 

MOV 

011374 

046562 

011312 

011310 

BIC 

011402 

036265 

011910 

011312 

BIT 

011410 

001401 



BE9 

011412 

104400 



HLT 

011414 

006365 

011312 


ASL 

011420 

026269 

011310 

011312 

CMP 

011426 

001401 



BE9 


*#FACT0R»R2 1 GET RELOCATION FACTOR AND USE AS AN 
R2*R? ( INDEX VALUE TO POINT TO DATA 

ODATA(?) j PRESET DESTINATION DATA 

#1|SDA?A(2I ITWJI ROUTSINE PUT A 1 BIT INTO EVERY 
5DATA(?) ,DQATA(?) (OTHER BIT POSITION IN THE DEST« 

SDATA(g) l’ I NAT I ON ADDRESS (5292?) 

SD AT A s 2 } 

IS 

#52525, 0OA?A(5) lC H|CK RESULT 
i*5 

iERRORt Incorrect result 


#*£iSQATA<2} 

D0ATA(?),SDATA(2) (SOURCE 0ATAU25252 

S0ATA(2),QDATA(?> 


(ERROR! ft 
DOATAf 9) fOOATAfll 
SQATAf 2) ,QQATA(5) 


It INST FAILED 
5152 


041430 

011432 

104400 

000297 

HLT 

see 

(ERROR! CMP INST fMLIP 

011434 

066268 011310 011312 

ADD 

S0lTA(2),ODATA(9> 

041442 

103002' 

BCC 

AD86 

011444 

100001: 

BVC 

4556 

011446 

011490 

100001 

104400 AD86I 

IPL 

hlt 

i*0 



011452 006368 
011456 166269 
011464 103401 
011466 001401 
011470 104400 


011310 

011310 


011312 

SUI6I 


SSk 

PCS 

sea 

HLT 


SDATAI2) IS0ATA«523|4 

80ATA(8),00ATA(9) 

SUB0 

i*# 



OZQKCD 


BASIC il FAMILY 

INSTRUCTION EXER, 

MACYll 

27(659) 19.JUU74 

011472 

112700 

000377 


MOVB 

#377iR0 jl 

011476 

010062 

011310 


MOV 

R07SDATA(2| 

011502 

012765 

177777 

011312 

MOV 

#*4,DPATA<5) 

011510 

166500 

011312 


SUB 

DDATA(5),R0 

011514 

001401 



BEQ 

,43 

011516 

104400 



Hit 


011520 

066265 

011310 

011312 ISi 

ADD 

S0ATA(2),DDATA(5) 

011526 

006362 

011310 


ASl 

SDATA(2> 

011532 

005162 

011310 


COM 

SDATA12) 

011536 

036265 

011310 

011312 

BIT 

SDATA (?) , DDATA ( 5 ) 

011544 

001401 



BEQ 

,*4 

011546 

104430 



HIT 


011530 

005162 

011310 


COM 

SDATA (2) 

011554 

026265 

011310 

011312 

CMP 

SD£TA(2),DDATA<5) 

011562 

001401 



BEQ 

,♦4 

011564 

104400 



NUT 


011566 

026230 

011310 


CMP 

SDATA (2) »R0 

011572 

001352 



BNE 

1* 

011574 

104000 



SCOPE 



UI40 PaQE 49 


( R0P177777 (MOVB %R EXTEND® SIGN) 


i C heck binary byte qps using address mode * 

I NOTE 1 SOaTAB ( 2 ) , AND DDATABM) REFERENCE EVEN ByTE OF SOURCE A D£ST DATa 
| AND SDATAB<3) , ANfi OGATAS^) FEFERENCE ODD BYTE OF SOURCE A DEST DATA 


(SOURCE DATA » 032*52 
(DEST DATA * 3,77777 


011576 

013702 

001004 


MOV 

•#factqr»r2 (GET 

011602 

010204 



MOV 

R2FR4 (R2 I 

011604 

010403 



MOV 

R4VR3 (OES 1 

0116^6 

005203 



INC 

R3 (AND 

011610 

010305 



MOV 

rs;r? 

011612 

0130261 



SEC 

(SET 

011614 

012762 

125252 

311740 

MOV 

#125252, SQATAB<2) 

011622 

112763 

177125 

311740 

MOVB 

#177125, SD*YAB<3> 

011632 

016264 

011740 

311742 

MOV 

SDATAB(2),D0ATAB(4) 

011636 

052764 

125125 

011742 

BIS 

#125125, DDATABM) 

011644 

136263 

011740 

011740 

BITB 

SDATAB(2),S0ATAB(3) 

011652 

001401 



BEQ 

, +4 

011654 

104400 


Bit B6 1 

HLT 


011656 

146264 

011740 

311742 

B I CB 

S0*TAB(2>,DDATAB(4) 

011664 

103401 



BCS 

,*2 

011666 

104400 



MLT 

(ERRi 

011670 

126364 

011740 

311742 

CMPB 

SDATAB(3),DDATAB(4) 

011676 

001401 



BEQ 


011700 

104400 



mlt 


011702 

146365 

011740 

211742 

B I CB 

SDATAB(3),0DATAB(5) 

011710 

126265 

011740 

011742 

CMPB 

SDATAB(2V,DDATAB(5) 

011716 

001401 



BEQ 


011720 

104400 



HLt 


011722 

136564 

011742 

011742 

BlTB 

DDATAB(5>,0DATAB(4> 

011730 

001401 



BEQ 


011732 

104400 



HLT 



DHQKC*C RASIC il F AM 1 LY INSTRUCTION EXER, 
OHQKCD 
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011734 

104000 




SCOPE 


011736 

000406 




BR 

UB7 

011740 

000000 



sdAtab ( 

,WoRD 

0 

011742 

000000 



DDATABi 

.WORD 

0 





IChECk 

binary 

WORD OPS USJNG ADI 





(R24ADDRESS OF 

SOURCE DATA, AND 

011744 

000000 



SB J N7 1 

.WORD 

0 

011746 

000000 



OB!N7l 

.WORD 

0 

011750 

000000 




.WORD 

0 

011752 

000000 




.WORD 

0 

011754 

010700 



UB7 1 

MOV 

PC7R& 

011756 

024040 




CMP 

*(R0),*(R0) 

011760 

010002 




MOV 

R0jR2 

011762 

024242 




CMP 

w(R2J , r(R2| 

011764 

010012 




MOV 

R0MR2) 

011766 

010203 




MOV 

R27R3 

011770 

024043 




CMP 

»(R0) , *{R3) 

011772 

010013 




MOV 

R0»{R3) 

011774 

000261 




SEC 


011776 

012777 

100000 

177740 


MOV 

#100000, PSBIN7 

012004 

017777 

177734 

177734 


MOV 

•SIIN7,PDBIN7 

012012 

103001 




BCC 

M0V7 

012014 

100401 




BM! 

,44 

012016 

104400 



M0V7I 

HL? 


012020 

006377 

177722 



ASL 

PDBIN7 

012024 

102001: 




BVC 

,*3 

012026 

301401 




BEQ 

i*3 

012030 

104400 




HLt 


012032 

327777 

177706 

177706 


CMP 

BSBIN7,PDBIN7 

012040 

103402 




BCS 

CMP7 

012042 

102401 




BVS 

CMP7 

012044 

100401 




BM1 


012046 

104400 



CMF7I 

HLt 


012050 

167777 

177670 

177670 


SUB 

»88IN7,»0B|N7 

012056 

103003 




BCG 

SUB7 

012060 

102002 




BVC 

SU97 

012062 

001401 




BEQ 

SU97 

012064 

100401 




DM! 

. 4*4 

012066 

104400 



SUB7 i 

HLt 


012070 

306277 

177650 



ASR 

PS0JN7 

012074 

367777 

177644 

177644 


ADO 

#S0| N7,PD8|N7 

012102 

103003 




BCG 

ADP7 

012104 

102002 




BVC 

AOgy 

012106 

001401 




BEQ 

AD87 

012110 

100001 




IPL 

,43 

012112 

104400 



AO07I 

HLt 



jRESERVE TWO WORDS 
(reserved fqr source DATA 

j reserved for dest data 


(CONTAINS ADDRESS OF SOURCE DATA 
(CONTAINS ADDRESS OF DEST DATA 
(CONTAINS SOURCE DATA 
(CONTAINS BEST DATA 


(SOURCE OAYA i 100000 
(DE§T OAfA * 100000 


(DEST DAtA * 000000 


I (R2) *100000, (R3)®000000 


MR3)«100000,(R3)S100000 


MR2J4140000 

)(R2)R140000,(R3)«040000 



DZQKC.C BASIC ix FAMILY INSTRUCTION SXER, MAftYll 271*55) 19«JUL*74 ll|40 RAGE 51 

02QKCD 


012114 047777 177*24 177**4 

012122 001401 

012124 104400 


BIC »§BIN7|I»DB!N7 M R2 ) S 14-0000 ,(R3)f 000000 

IEO >S 

HLf 


012126 057777 177618 177612 

012134 100401 

012136 104400 


BJS 

BMI 

Hit. 


0S3JN7|»D9JN7 

,*4 


|(R2)si40000,?R3>it40000 


012140 027777 177600 177600 

012146 001401 

012150 104400 

012152 104000 


CM# 6S3IN7i»0BIN7 

BEQ ,44 

HUT 

SCOPE 





ISOME MISCELLANEOUS OPERATION INVOLVING ?HE PC 




f NOTE j NONE OF 

THESE OPERATIONS SHOULD AFFECT THE PC 

012154 

005000 


CL# 

R0 


012156 

005067 

000072 

CLR 

IS 


012162 

010707 


MOV 

PCTPC 


012164 

120707 


CMPB 

PCiPC 


012166 

030707 


BIT 

PC, PC 


012170 

060007 


ADO 

R0|PC 


012172 

105707 


TSfS 

PC 


012174 

005507 


ADC 

PC 


012176 

021007 


CMP 

(R0) i PC 


012200 

131007 


B JTB 

(RH),PC 


012202 

062707 

000000 

ADO 

P0iPC 


012206 

023707 

001004 

CMP 

•FACTOR, PC 


012212 

133707 

001004 

8ITB 

ppEactor, PC 


012216 

000240 


NQP 






iTNE next two : 

INSTRUCTION CAUSE 

THE PROGRAM TO JUMP TO THE UNRELOCATED 




ICOOE AND TO RETURN ON THE FOLLOWING INST ( I P THE CODE IS RELOCATED) 

012220 

163707 

001004 

SUB 

*#factor,pc 

J JUMPS TO UNRELOCATED CODE 

012224 

063707 

001004 

ADO 

»#FACTOR,PC 

IRETURNS 

012230 

000240 


NOP 



012232 

024607 


CMP 

»(SP)|PC 


012234 

132607 


81 TB 

( S?I ) * i PC 


012236 

026707 

000012 

CMP 

ISiPC 


012242 

166707 

000006 

SUB 

iSiPC 


012246 

046707 

000002 

BIC 

ISIPC 


012252 

000401 


BR 

i 44 

J BRANCH OVER 1$ 

012254 

000000 


111 0 



012256 

104000 


SCOPE 



012260 

010702 


MOV 

PCIR2 


012262 

062702 

000012 

ADO 

#1?,R2 


012266 

012707 

001132 

MOV 

#reloc,pc 

1 go relocate program code 

012272 

000240 


NOP 


) PROGRAM RETURNS HERE+2 




JlillUlllilll 

LAST ADDRESS OF l 

CODE TO BE RELOCATED lUlillllll 




l 2222222222222 

FIRST ADDRESS TO 

BE RELOCATED 222222222 

012274 

010700 


REU2I MOV 

PC f R0 

IGET PC 

012276 

005740 


TST 

*(R0) 

)R0 CONTAINS THE ADDRESS OF PELS 

012300 

010037 

001010 

MOV 

R01MFRSTAD 

) SAVE 
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OZQKCD 


012304 

010700 



MOV 

PCIR0 

I GET CURRENT PC 

012306 

162700 

012306 


SUB 

#,»R0 

j subtract relocation factor 

012312 

010037 

001004 


MOV 

R0, P4FACT0R 

l$AVE RELOCATION FACTOR 

012316 

010701 



MOV 

PCfRl 

| SET NEW SCOPE PTR 




JCHECK 

binary 

BYTE OPS USING 

ADDRESS MODE 7 

012320 

000406 



BR 

BINB7 

j RESERVE SPACE FOR ADDRESSES 6 DATA 

012322 

000000 


SB1NB7I 

.WORD 

0 

) CONTAINS ADDRESS OF SOURCE EVEN BYTE 

012324 

000000 



.WORD 

0 

I CONTA ! NS ADDRESS OF SOURCE ODD BYTE 

012326 

000000 



.WORD 

0 

) CONTAINS ADDRESS OF PEST EVEN BYTE 

012330 

000000 



.WORD 

0 

^CONTAINS ADDRESS OF PEST ODD BYTE 

012332 

000000 


DBINB7I 

.WORD 

0 

t CONTA I NS SOURCE DATA 

012334 

000000 



.WORD 

0 

)CONTA I NS DEST DATA 

012336 

010700 


BINB7) 

MOV 

PC, R0 


012340 

024040 



CMP 

»<R0),»<R0) 

|R0 « ADDRESS OF DEST DATA 

012342 

010060 

177772 


MOV 

R0 »6{R0> 

ILOAD ADORES OF DEST EVEN BYTE DATA 

012346 

010060 

177774 


MOV 

R0).4JR0) 


012352 

005260 

177774 


INC 

*4 ( R0 ) 

ILOAD ADDRESS OF DEST ODD BYTE DATA 




DHQKC-C BASIC 11 FAMILY INSTRUCTION! EXER, 
OZGKCD 

012356 005740 

312360 010060 177770 

312364 010060 177772 

312370 005260 177772 

012374 005002 

012376 012703 000002 

012402 012704 177774 

012406 012705 177776 
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TST * ( R0 > I R0« ADDRESS OF SOURCE DATA 

MOV R0,«10(R0) JLOAD ADDRESS OF SOURCE EVEN BYTE DATA 

MOV R0| »6 ( R0) 

INC «»61R0) ILOAO ADORISS OF SOURCE OOO BYTE DATA 

clr R2 iset index registers 

MOV #27R3 )RSB1NB7(2I)6SBINB7c3) REFERENCE EVEN ft 

MOV 0*4 I R4 I QDO BYTE SOURCE DATA) *0BfN97M> |P0BINB7(3) 

MOV #»2,R5 IREFERENOE DEST EVEN* ODD BYTE DATA 


012412 

012414 

012416 

012422 

012424 

012426 

012430 

012432 

012440 

012446 

012450 

012452 

012460 

012464 

012466 

012470 

012474 

012500 

012506 

012510 

012512 

012520 

012522 


005020 

005010 

013746 

061602 

061603 

061604 

062605 

112773 

132772 

001401 

104400 

157374 

105274 

001401 

104400 

105375 

005274 

127375 

001401 

104400 

147375 

001401 

104400 


001004 


177777 012322 

000377 012322 


012322 012332 

012332 


012332 

012332 

012322 012332 


012322 012332 


CLR 

CLR 

MOV 

ADD 

ADD 

ADD 

ADD 

MOVB 

01TB 

BEQ 

HLT 

B JSB 
INCB 
BEQ 
HLf 

decb 

INC 

CMPB 

BEQ 

HLT 

BjCB 

BEQ 

HLt 


<R0>* 

(R0> 

••FACTOR, «(SP) 
( SP) , R2 
(SR)»R3 
(SH),R4 
( SP ) * , R5 


IPRESET SOURCE DATA 
JPRESET DEST DATA 
I GET RELOCATION FACTOR 
I AND ADD TO INDEX VALUES 


,P$8INB7<3) ) SRC DATA i 177400 

• 3?7 , PSB I NB7 < 2 ) ICHECK THAT EVEN ByTE W A$ NOT AFFECTED 
,♦4 I BY MQVB INSTRUCTION 


•SB JNB7(3)|PDBjNB7(4) 

•D?INB7<4) ICHECK THAT BIS SET ALL BITS 

.*5 


•D3iNB7(5) IDEST DATA 
• D? INS7 < 4 ) I DEST DATA 
•SBINB7(3)jPDBJNB7(5) 

,♦4 


• SB JNB7 ( 3 ) | PDB J NB7 ( 5 ) 

,*4 


177400 

177401 


012524 105073 012322 


Ci RB 

jTHIS ROUTINE SETS AIL BITS IN THE SOURCE ODD ByTE By BISING A BIT FROM 


J SRC DATA f 000000 


•SB j NB7 ( 3 ) 

ETS ALL BITS 
ITHE DEST EVEN BYTE INTO THE SOURCE ODD BYTE 


012530 

157473 

012332 

012322 

BIS7I 

B I SB 

•D3 I NB7 ( 4 ) , PSB ! NB7 ( 3 ) 


012536 

106174 

012332 



ROLB 

•QB l NB7 ( 4 ) 


012542 

103372 




BCC 

BJS7 


012544 

022772 

177400 

012322 


CMP 

•1 £7400, •SBINB 7(2) 

ICHECK RESULT 

012552 

001401 




BEQ 

,*4 


012554 

104400 




HLT 



012556 

000372 

012322 



SWAB 

•SB I NB7 ( 2 ) 1 SRC 1 

DATA k 000377 

012562 

112775 

000200 

012332 


MOVB 

•200,PDBINB7(5) IDEST 

DATA • X 00000 

012570 

147572 

012332 

012322 

BIC7I 

BlCB 

•PB JNB7(5) |*SB JNB7(2) 


012576 

106075 

012332 



RORB 

•DB|nb7{5) 



02QKCD 


BASIC 11 FAMILY 

INSTRUCTION EXER, 

MACYn 

27(655) 19*JUL- 

012602 

103372 




BCC 

BIC7 

012604 

005772 

012322 



TST 

• SB J NB7 ( 2 ) 

012610 

001401 




BEQ 

,*4 

012612 

104400 




HLT 


012614 

104000 




SCOPE 


012616 

012702 

000001 


OAeRRi 

MOV 

n;R2 

012622 

010703 



MQy 

PC|R3 

012624 

000401 




BR 

,*4 

012626 

000000 




.WORD 

0 

012630 

005723 




TST 

<R3>* 

012632 

010313 




MOV 

R3i(R3> 

012634 

005213 




INC 

(R3) 

012636 

012737 

012764 

000004 


MOV 

nMRERRVEC 

012644 

063737 

001004 

000004 


ADD 

••FACTOR, PiERR' 

012652 

013737 

000004 

000010 


MOV 

•#1RRVEC,MRESi 

012660 

000277 




sec 


012662 

160212 




SUB 

R27(R2> 

012664 

104400 




HLT 


012666 

060222 




ADO 

R27(R«K 

012670 

104400 




HLT 


012672 

006342 




ASL 

«(R2) 

012674 

104400 




HLT 


012676 

106512 




MFPD 

(R2> 

012700 

104400 




HLT 


012702 

170412 




CLRF 

(R2) 

012704 

104400 




HLT 


012706 

042202 




BIG 

(R2)4»R2 

012710 

104400 




HUT 


012712 

164202 




SUB 

■{ R2) , R2 

012714 

104400 




HLT 


012716 

155202 




B I SB 

•*(R2),R2 

012720 

104400 




HLT 


012722 

105532 




ADCB 

•(R2)* 

012724 

104400 




HLt 


012726 

163302 




SUB 

•(R3)*iR2 

012730 

104400 




HLT 


012732 

005733 




TST 

• ( R3 3 * 

012734 

104400 




HLT 


012736 

106533 




MFPD 

•(R3)y 

012740 

104400 




HLT 


012742 

170453 




CLRD 

MIR3) 

012744 

104400 




HLT 


012746 

137702 

17777? 



BITS 

• ',R1»R2 

012752 

104400 




HLT 

012754 

105477 

177773 



NEQB 


012760 

104400 




HLT 

012762 

000406 




BR 

2S 

012764 

062716 

000002 


111 

ado 

R27I8PI 

012770 

052766 

000017 

000002 


BIS 

#lf |2(|P) 

012776 

000002 




RT) 



iload R2 wtth odd * 

j RESERVE SPACE FOR A WORD 
I WILL CONTAIN AN ODD ADDRESS 
ISTEP R3 TO POINT TO WORD ABOVE 

I AND MAKE ODD 

)SET ODD aODRESS 6 RESERVED INSTRUCTION 

EC 

EC | TO TRAP TO IS BELOW 

ISET ALL CC‘5 


I NOTE I MAY BE RESERVED 


i adjust return pc 

I SET CONDITION COOES ON RETgRN 



OZQKCpC BASIC IX FAMILY INSTRUCTION EXER, 
DZQKCD 


MACVU 27(159) !9iJUL»74 *H«0 BASE' 55 


013000 012706 000500 2SJ MOV FSTKPTRiSP f RESET STACK FTR 

013004 012737 000006 000004 MOV #ERRV£c*2, RPERRVEC 

013012 012737 000012 308010 MQV #RESVEC*2» *#RESVEC 

013020 104000 SCOPE 

) CHECK JMP INSTRUCTIONS 


013022 

010700 



MOV 

PCJR® 


013024 

062700 

000012 


ADD 

n*iR0 

t set address for jmp jnst 

013030 

000277 



see 


1 SET CC'S 

013032 

000110 



JMP 

<R0) 


013034 

000402 



BR 



013036 

000250 



CLN 


I JMP JNST JUMPS HERE 

013040 

000775 



BR 

,*4 


013042 

103003 



BCC 

JMP1 


013044 

102002 



0yC 

JMPl 


013046 

001001 



BNE 

JMP1 


013050 

100001 



BPL 



013052 

104400 


JMPlI 

HLT 


i error? incorrect cc's after jmp 

013054 

005002 



CLR 

R2 

1 SET INDICATOR 

013056 

010703 



MOV 

PCJRS 


013060 

000401 



BR 

, *4 

) RESERVE WORD FOR JMP ADDRESS 

013062 

000000 



.WORD 

0 

I CONTA INS ADDRESS FOR JMP INST 

013064 

009723 



TSf 

(R3)* 


013066 

010313 



MOV 

R3| (R3) 


013070 

010300 



MOV 

R3|R0 


013072 

062713 

000022 


ADD 

#22 i ( R3 ) 

) (R3> IS JMP ADDRESS 

013076 

010300 



MOV 

R3(R8 


013100 

000133 



JMP 

P(R3>* 

J JUMP TO ADDRESS CONTAINED IN R3 

013102 

000402 



BR 



013104 

005102 



COM 

R2 

1 COMPLEMENT INDICATOR 

013106 

000775 



BR 

i* 4 


013110 

005202 



INC 

R2 

1 CHECK INDICATOR 

013112 

001003 



BNE 

JMP3 


013114 

005720 



TST 

(RPJ* 


013116 

020003 



CMP 

R0|R3 

{CHECK AUTO* INC R3 

013120 

001401 



BEQ 



013122 

104400 


UMP3I 

HLt 





013124 005002 
013126 010704 
013130 010400 
013132 000402 
013134 005102 
013136 000403 
013140 022424 
013142 009724 
013144 000144 
013146 005202 
013150 00*003 
013152 022020 
013154 020004 



clr 

R2 

1 SET INDICATOR 


MOV 

PCJR4 

{SET UP JMP REGISTER 


MOV 

R4,R0 

{set up Check register 


BR 

IS 



COM 

R? 

{COMPLEMENT INDICATOR 


BR 

2$ 


til 

CMP 

(R4 )*, (R4)* 



TST 

(R 4)4 

{R4aJMP ADDRESS 


JMP 

»{R4) 

{USE R4 AS ADDRESS 

2SI 

INC 

R2 

{CHECK INDICATOR 


BNE 

JMP4 



CMP 

{R0)*,(R0)T 



CMP 

R0JR4 

{CHECK AUTOwOEC R4 


n- x 
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OZOKCD 


013156 

001401 




BED 

,*4 


013160 

104400 



JMP4 t 

HLT 



013162 

010703 




MOV 

PCJRS 


013164 

000401 




BR 

{RESERVE uQRO FOR JMP ADDRESS 

013166 

000000 



is i 

.WORD 

0 

{CONTAINS JUMP ADDRESS 

013170 

005723 




TST 

(R3) + 


013172 

010313 




MOV 

R3 j ( R3 ) 


013174 

062723 

000016 



ADD 

#12» (R3)* 


013200 

010300 




MOV 

R3JR0 

{LOAD CHECK REGISTER 

013202 

000402 




BR 

3S 


013204 

005102 



2Si 

COM 

R2 


013206 

000401 




BR 

4$ 


013210 

000193 



3$j 

UMP 

MIR3) 

{JUMP TO 21 VIA IS ABOVE 

013212 

009202 



4$i 

INC 

R2 

{CHECK INDICATOR 

013214 

001003 




BNE 

JMP? 


013216 

005740 




TST 

• (H0> 


013220 

020003 




CMP 

R04R3 

{CHECK AUTO-DEC R3 

013222 

001401 




BEO 

,*4 


013224 

104400 



JMP5I 

HLT 



013226 

000402 




BR 

2$ 


013230 

005102 



isi 

COM 

R2 

jcomplemeny indicator 

013232 

000402 




BR 

35 


013234 

000167 

177770 


2i i 

JMP 

1$ 


013240 

005202 



3SI 

INC 

R2 


013242 

001401 




BEO 

,*4 


013244 

104400 



JMP6I 

HLT 



013246 

012767 

013264 

000020 


MOV 

n$,y% 

{Set up Jmp address 

{ADD RELOCATION FACTOR 

013254 

063767 

001004 

800012 


ADD 

##factor, 7S 

013262 

000402 




BR 

2$ 

{GO TO JMP #7S INST 

013264 

009102 



is i 

COM 

R2 

{COMPLEMENT INDICATOR 

013266 

000403 




BR 

3$ 

{GO TO CHECK ROUTINE 

013270 

000177 

000000 


21 1 

JMP 

•7S 

) JMP TO £S ABOVE VIA 7S 

013274 

000000 



7si 

.WORD 

0 

{CONTAINS JMP ADDRESS 

013276 

009202 



3Si 

INC 

R2 

{CHECK INDICATOR 

013300 

001401 




BEG 

i *4 


013302 

104400 



JMP7I 

HLT 



013304 

104000 




SCOPE 



013306 

013701 

001004 


m 

JSR INSTRUCTIONS 
1 MOV ##FACTOR,R9 

{GET RELOCATION FACTOR 

013312 

012702 

013344 



MOV 

#3*,R2 

{FORM DEST ASRS 

013316 

060502 




ADD 

R5«R2 

1 ADO RELOCATION FACTOR 

013320 

000277 




see 


{PRESET DC*S 

013322 

000242 




CLV 



013324 

004512 




JSR 

RSJ(R2) 

{GO TO 3S VU R2 

013326 

005702 



nl 

TST 

R2 

{CHECK INDICATOR 

013330 

001017 




BNE 

JSR1 

1 R8 SHOULDI0 

013332 

023705 

001004 



CMP 

U#FACTOR | R5 

{CHECK THAI RTS R9 RESTORED 1 

013336 

001014 




BNE 

JS«1 


013340 

000414 




BR 

JS21A 

{EXIT TO SCOPE 

013342 

000205 



2$l 

RTS 

R9 

{RETURN FROM SUBROUTINE 




( 


( 
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D2QKCD 


013344 

103011 


3$i 

ace 

JSR1 

013346 

102410 



avs 

JSHl 

013390 

001007 



BNC 

JSR1 

013392 

100006 



8PL 

JSR4 

013394 

005002 



CLR 

R2 

013356 

012704 

013326 


MOV 

#1S|R4 

013362 

061604 



ADD 

<SP),R4 

013364 

020405 



CMP 

R4(R5 

013366 

001769 



BEQ 

25 

013370 

104400 


JSR1I 

HLT 


013372 

013704 

001004 

JSRIAI 

MOV 

P#FACT0R,R4 

013376 

009000 



CLR 

R0 

013400 

012705 

013420 


MOV 

nS,R5 

013404 

060405 



ADD 

R4/R5 

013406 

010502 



MOV 

R9iR2 

013410 

012715 

013436 


MOV 

#55, CHS) 

013414 

060415 



ADO 

R4i <R9> 

013416 

000401 



BR 

25 

013420 

000000 


IS; 

.WORD 

0 

013422 

*04435 


251 

JSR 

R4|*(R9 ) ♦ 

013424 

005230 


3S 1 

INC 

R0 

013426 

001013 



BNE 

JSR3 

013430 

000413 



BR 

JSR3A 

013432 

005100 


4Si 

COM 

R0 

013434 

000234 



RTS 

4 

013436 

012703 

013424 

5$i 

MOV 

#3$ , R3 

013442 

061603 



ADD 

(SP),R3 

013444 

020403 



CMP 

R41R3 

013446 

001003 



BNC 

JS«3 

013490 

005722 



TST 

<R«)* 

013452 

020205 



CMP 

R2,R5 

013454 

001766 



3E0 

45 

013456 

104400 


JSR3I 

HLT 


013460 

013704 

001004 

JSR3A i 

MOV 

P#FACTOR,R4 

013464 

310405 



MOV 

R47R5 

013466 

010703 



MOV 

perns 

013470 

000401 



BR 

25 

013472 

000435 


isi 

BR 

45 

013474 

022323 


25 1 

CMP 

( R3 )+, ( R3 ) 4 

013476 

300277 



see 


013500 

004443 


3Si 

JSR 

R4 J 1 ■ ( R3 ) 

013502 

104400 


HLT 


013504 

000414 



BR 

JSR4A 

013506 

103012 


4SI 

BCC 

JSR4 

013510 

102011 



BVC 

JSR4 

013512 

001010 



BNE 

JSS4 

013514 

100037 



9PL 

JSM4 

013516 

012702 

313502 


MOV 

#3!,R2 

013522 

061602 



AOO 

(SP),K2 

013524 

*20204 



CMP 

R2TR4 

JSH4 

013526 

001002 



BNE 

013530 

005724 



TST 

<RS)* 


JOHECK THAT JSR DIO NOT 

I AFFECT eels 

I CLEAR INDICATOR 
) GET UNRELOCATED RETURN ADORESS 
J ADD RELOCATION FACTOR <OLO *5) 

) CHECK TMAt OLD R5 WAS PLACED ON THE 
I STACK, a THAT NEW R3 CONTAINS RETURN PC 
I ERROR! ABOVE 

I get RELOCATION factor 
jSE! INDICATOR 

I SET UP JSR DEFERRED A0R5 


I (R5 ) ■OEST ADRS 
I RESERVE WORD FOR ADDRESS 
ICONTAINS BEST ADRS FOR JSR 
I JSR TO 5S VIA IS ABOVE 
J CHECK INDICATOR 


ICOMPLEMENT INDICATOR 
IRETURN FROM SUBROUTINE 
|CEt UNRELOCATEO RETURN ADDRESS 
I ADD RELOCATION FACTOR ( OLD R4> 


JCHECK AUTO-INC R9 
I GO TO RTS 
jERROR ABOVE 


I GO TO 21 


J GET UNRELOCATED RETURN ADDRESS 
{ADD RELOCATION FACTOR (OLD R4) 
J CHECK THAT CALCULATED RETURN 
I PC ■ NEW R4 
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DZQKCD 


( 


( 


013532 

000204 




RTS 

R4 


013534 

104400 



JSR4I 

MLT 



013536 

000401 



JSR4A* 

BR 

2$ 


013940 

000405 



IS) 

BR 

3$ 


013542 

010700 



2$ 1 

MOV 

PC, R0 


013544 

004767 

177770 



JSR 

PCllS 


*13550 

100407 




BMI 

JSR6A 


013552 

104400 




HLT 



013554 

022020 



ss i 

CMP 

( R0 ) *, I R0 ) * 


013556 

020016 




CMP 

R0IISP) 

JCHECK THAT RETURN ADDRESS IS ON THE 

013560 

001401 




BED 

,*4 

jstack 

013562 

104400 




HLT 



013564 

000270 




SEN 


J SET N 

013566 

000207 




RTS 

PC 


013570 

104000 



JSR6A) 

SCOPE 







JCHECK 

IDT TRAP 

(AND HOLB/ASLB) 


013572 

012737 

013624 

000020 


MOV 

#IOTl,P#!OTVEC 


013600 

063737 

001004 

000020 


ADD 

6#EACT0R,P#I0TVEC i ado relocation FACTOR 

013606 

000261 




SEC 


JSET CARRY 

013610 

013737 

177776 

000022 


MOV 

»#PSW I P#!QTVEC*2 

f RETAIN CURRENT P$W ON TRAP 

013616 

005000 




CLR 

R0 

J PRESET R0 

013620 

000004 




lot 



013622 

000403 




BR 

I0T1A 


013624 

106100 



lOtll 

rqlb 

R0 

{ROTATE R0 

013626 

102376 




BVC 

,-2 

JUNTIL V SETS IR0P200) 

013630 

000002 




RTI 



013632 

106300 



lOflAl 

ASLB 

R0 

{SHIFT SHOULD SET CARRY 

013634 

103004 




BCC 

IOT1B 


013636 

102003 




BVC 

IQilB 


013640 

001002 




8NE 

IOIXB 


013642 

005700 




TST 

R0 

I R0 SHOULD n 

013644 

001401 




9EQ 

»*# 


013646 

104400 



lOtlBi 

HLT 


lERRORl ROL/ASL FAILED to SET CC'S PROPERLY 

013650 

012737 

000022 

000020 


MOV 

#I0TVEC+2,P#!0TVEC | RESTORE IOT TRAP 

013656 

005037 

000022 



CLR 

MiOTVEC+2 

{VICTOR 

013662 

104000 




SCOPE 



013664 

013746 

000030 


JCHECK 

emt trap 

MOV 

SEQUENCE 

P#EMTVEC,-ISP) 

J SAVE SCOPE PTR 

013670 

012737 

013724 

000030 


MOV 

#EMT1,P#EMTVEC 

jset emt trap Vector 

013676 

063737' 

001004 

000030 


ADD 

P#FACTOR|P#EMTVEC I ADO RELOCATION FACTOR 

013704 

000262 




SEV 


JSET V 

013706 

013737 

177776 

000032 


MOV 

P#PSW,P#EMTVEC*2 

{‘RETAIN CURRENT PSW ON TRAP 

013714 

00026? 




★SCZISEC 


013716 

104000 




EMT 


,1 TRAP TO EMT1 

013720 

001433 




BEO 

EMTIO 

ICO TO EMTIO 

013722 

104400 




HLT 


JERRQRI INCORRECT CC*S WER| SET ON RETURN 

013724 

102027 



EMtll 

BVC 

EMUS 

J I V» SHOULD'VE SET ON EMT TRAP 

013726 

105100 




COMB 

R0 

jR0i000377;ce»3*1001 

jR0P000000lCCJS8gl0i 

013730 

105500 




ADCB 

R0 

013732 

106000 




RQRB 

m 

|R0ff 0002001 CCi Sf 1010 



DiQKCpC 

qZOKco 


OZQKCpC 

dzqkcd 
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013734 

102023 



m 

EMUS 


013736 

100022 



BPL 

EMTtB 


013740 

000257 



ccc 



013742 

109400 



NESB 

R0 

>R0S000200|CC< 3*1010 

013744 

102017 



BVC 

EMT 1 B 


013746 

100016 



BPL 

EMUB 

>CLEAR 'V? 

013750 

000242 



CLV 


013752 

000261 



SEC 


I A NO SET Jfe' 

013754 

109300 



DECS 

R 0 

>R0S000177|CC( 8P0011 

013756 

102012 



BVC 

EMT1B 


013760 

100411 



BMt 

emtib 

I CLEAR 

013762 

000242 



CLV 

013764 

109200 



INCB 

R0 

>R 0 i 000200* CC< S« 1011 

013766 

103006 



see 

EMTIB 


013770 

102005 



BVC 

EMT 49 


013772 

100004 



BPL 

EMflB 

> CLEAR >\fi 

013774 

000242 



CLV 


013776 

106200 



ASRB 

R0 

1 SHIFT R0 QNT I L! 'V CLEARS 

014000 

102776 



BV5 

,«2 


014002 

000401 



BR 

,*4 


014004 

104400 


EMflBi 

HLT 


> ERROR ! 

014006 

000002 



rti 


JEXIT WITH R0R000377 

014010 

109900 


EMTlCl 

ADCS 

R0 

>R0«000000 

014012 

103003 



BCC 

EMT 1 D 


014014 

001002 



8 NE 

EMTIO 


014016 

009700 



TST 

R0 


014020 

001401 



SEQ 

, *4 


014022 

104400 


EMflOi 

HLT 



014024 

012637 

000030 


MOV 

(SP)*,P#EMTVEC 

> RESTORE SCOPE PTR 

014030 

005037 

000032 


CLR 

PPEMTVEC*2 


014034 

104000 



SCOPE 




ICHECK TRAP INSTRUCTION TRAP SEQUENCE 



000004 




HLf*IOT 

1 REDEFINE RLT 

014036 

013737 

000034 

003020 


MOV 

MTRAPVEC*®#IQTVEC ISIT JOT (HIT) TRAP VECTOR 

014044 

012737 

014112 

000034 


MOV 

#T!!APl,*#TRAPVEC i’SST trap VECTOR 

014092 

063737 

001004 

000034 


ADD 

P#F A CTOR ( P#TRAPVEC 1 ADD RELOCATION FACTOR 

014060 

000270 




SEN 

1 SET N 

014062 

013737 

177776 

000036 


MOV 

®0PSW,9#TRAPVEC*2 | RETAIN CURRENT PSW ON TRAP 

014070 

000261 




SEC 

! SET CARRY 

014072 

110700 




MOVB 

PCIR0 

014074 

000264 




SEE 

1 SET 2 BIT 

014076 

104400 




TRAP 

ITRAP TO TRAP1 

014100 

103401 



isi 

BCS 

.*« 

014102 

000004 




HLT 


014104 

001401 




BEQ 

,*4 

014106 

000004 




HLT 


014110 

000412 




8 R 

TRAP1C 

014112 

100401 



TRAPli 

BM! 

f N BIT GOT SET ON TRAP 

014114 

000004 




HLT 


014116 

062700 

000004 



ADD 

P4TR0 

014122 

120016 




CMPB 

R 0 |(SP) ICHECK LOW BYTE OF RETURN PC ON 

014124 

001401 




BEQ 

. *4 ISTACK 

014126 

000004 




HLT 
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014130 

124646 



CMPB 

■(SP)|«(SP> 

014132 

032626 



BIT 

<SL , (SP>* 

014134 

000002 



RTI 

IREJURN TO INST FOLLOWING TF 

014136 

013737 

000020 

000034 TRAP1CI 

MOV 

• RfOTVECiMTRAPVEC JRESTORE TRAP (HLT) 

APRTy4|P#TRAPVEC*2 

014144 

012737 

000200 

000036 

MOV 

014152 

012737 

000022 

000020 

MOV 

#J?,TVEC + 2*®#I0TVEC 

014160 

005037 

000022 


CLR 

PPTOTVEC +2 

014164 

104000 



SCOPE 



104400 



HLTpTRAP JRESTORE HLT TO a TRAP INST 

014166 

010702 



MOV 

PC 1 R2 

014170 

062702 

000012 


ADD 

A12«R2 

014174 

012707 

001132 


MOV 

«RS?LOC,PC 1 GO RELOCATE PROGRAM CODE 

014200 

000240 



NOP 

l PROGRAM RETURNS HERE*? 


0142512 010701 


014204 005767 164570 


014254 000000 


1 2222222222222 LAST ADDRESS OP CODE TO BE RELOCATED 22222222222 


MOV 


PC7R1 


i S et scope ftr 


i the BELOW ROUTINE ASCERTAINS WHICH CP 4 CP OPTIONS THE PROGRAM is run* 
jning on a no sets a n jndica tor in opr jC p a ccOR&ingly, 

CpCH 1 ' ‘ “ **'-*““ “ 


014210 

001036 


BNE 

RE^3 

>00 NOT EXECUTE ROUTINE IF NC 

014212 

012737 

000002 000006 

MOV 

#RTJ,P#ERRVEC *2 

> SET UP ERROR TRAP TO RETURN 

014220 

012700 

000003 

MOV 

#3TR0 


014224 

000261 


SEC 



014226 

005737 

177772 

TST 

PPPJRO 

|R0»3 IF 11/45 

014232 

009600 


SBC 

R 0 

> R0*2 IF if/40 

014234 

000261 


SEC 



014236 

109737 

177777 

TSTB 

P#PSW +1 

IR0S1 IF U/f 0 

014242 

005600 


SBC 

R0 


014244 

009037 

177700 

CLR 

MJ77700 

>R0*0 IF U/05 

014250 

006300 


A9L 

R0 

1 SHIFT INDICATOR 

014292 

010027 


MOV 

R0i (PC)* 

J$ET CP tNDICAtOR 


OPf.CPI .WORD 0 I CONTAINS QPTjON 6 CP INDICATORS 

I EVEN BYTE! 0*11/05 , 2i U/gB , 4f|l/40 , 6H1/45 
I ODD BYTE] 200*MEM MCMT, 100iEtS, 40«U/45 FLOATING POINT 


014296 

009037 

000006 3Si 

CLR 

RPERRVEC+2 

JRESTORE ERROR TRAP TQ HALT ON TRAP 

014262 

005037 

000012 

CLR 

•#RESVEC*2 


014266 

126727 

177762 000004 

CMPB 

0PI.CP,#4 

> BRAnCh IF 11/05 OR 11/20 

014274 

002404 


blt 

REL3 

014276 

004767 

164730 

JSR 

PCA.PRJNT 

1 PRINT MESSAGE 9E5JNIN0 AT FOLLOWING 

014302 

016625 


illtest 



014304 

000000 


HALT 




014306 010700 

014310 009740 

014312 010037 001010 

014316 010700 

014320 162700 014320 


>3333333333333 FIRST AODRESS TO BE RELOCATED 333333333 
REL3I MOV PC7R0 I GET PC 

TS? »(30> >R0 CONTAINS THE ADORESS OF REL3 

MOV R0TMFRSTAD | SAVE 

MOV PC(R0 > GET CURRENT PC 

SUB #, |R0 > subtract relocation factor 



DZQKCgiC BASIC H F A M IU V INSTRUCTION EXER, 
OZOKCD 


014324 

310037 

301004 



MOV 

R07MFACTQR 

314330 

010731 




MOV 

PCfRl 





1 check 

OVPLWl 

STACK 

OVERFLOW 

014332 

013767 

177776 

000306 

MOV 

•PPSW.7S 

014340 

005037 

177776 



SLR 

• #?SW 

014344 

010746 




MOV 

PC|«(SF> 

014346 

362716 

000136 



ADD 

#2S*,,(SP) 

014352 

011637 

000004 



MOV 

( S£ ) , MERRVEC 

014356 

012737 

000340 

000006 


MOV 

P320,P#ERRVEC*2 

014364 

062716 

000074 



ADO 

P4U-2S, (SP> 

014370 

012637 

000020 



MOV 

<SP)*,MIQTVEC 

014374 

012746 

000340 



MQV 

#310, ■($P) 

014400 

311637 

000022 



MOV 

( SP } , ## I OTVEC*2 

014404 

010746 




MOV 

PC -ISP) 

014406 

062716 

300006 



ADD 

#6| (SP) 

014412 

000002 




RTI 


014414 

012733 

000376 



MOV 

#376 , K3 

014420 

010313 




MOV 

R3?(R3) 

014422 

010336 




MOV 

R3iSP 


005716 



ITHE BELOW INSTRUCTIONS SHOUiD I 

014424 




TST 

(SPJ 

014426 

021666 

177776 



CMP 

<SM),.2(SP) 

014432 

122737 

000002 

014254 


CMPB 

#2f##0PT,CP 

014440 

002411 




BLT 

12S 

014442 

001404 




BEQ 

11? 

014444 

012767 

000014 

002144 


MOV 

#15,915 

014452 

000437 




9R 

10? 

014454 

012767 

000034 

002134 

USI 

MOV 

#34,51$ 

014462 

000403 




BR 

10* 

014464 

012656 



12 s l 

MOV 

(5P)4,P«(SP) 

014466 

054676 

000000 



BIS 

•(SP>,P(SP) 

014472 

005066 

300004 


10SI 

CLR 

4UP) 

014476 

057636 

000000 



BIS 

®(SP),»(SP)* 

014502 

000406 




BR 

35 





1 ERROR 

SERVICE ROUTINE 

014504 

012600 



2Si 

MQV 

( Sc ) +, R0 

014506 

012602 




MOV 

(SP)*,R2 

014510 

012736 

300500 



MOV 

#STKPTR,SP 

014514 

104400 




HLt 


014516 

000450 




BR 

6S 





1 THE BELOW INSTRUCTIONS Wj(,L CA< 





JSTACK 

PTR IS 

AT 3*6 

014520 

062737 

000066 

202024 

3Si 

ADD 

#4»*2SJ,0#ERRVEC 

014526 

010336 




MOV 

R3,SP 

014530 

012732 

000001 



MOV 

#UR2 

014534 

005030 




CLR 

Rfci 

014536 

305016 




CLR 

(SP> 
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I SAVE RELOCATION FACTOR 
I SET NEW SCORE PTR 


I SAVE STATUS IN 75 BELOW 
I SET KERNEL KOBE 
I PUSH CURRENT RC ONTO STACK 
|FORM AQ8RESS OF 21 BELOW 
I SET ERROR VECTOR 
I SET PRIORITY LEVEL 7 ON TRAP 
I FORM ADDRESS of MS BIUOW 
J SET ICT TRAP VECTOR TO 411 

i set priority Level 7 on iot trap 

I PUSH CURRENT PC ONTO THE STAK 
J ADD OFFSET Tq INST FOLLOWING RTI 
I SET PRIORITY LEVEL 7, CLEAR 'Tt BJT 
IANO EXECUTE FOLLOWING INST NEXT 

ILOAD 376 INTO ADDRESS 376 
J SET STACK PTR AT BOUNDARY 


JBECAUSE TST IS A NON MODIFYING INST 
iso IS COMPARE 
J CHECK IF 11/20 OR 11/05 
JBRANCH IF 11/40 OR 11/45 
IBRANCH IP U/20 

ICWANGE CHECK WORD IN HI JF U/05 

ICHANGE CHECK WORD in 51S IF 11/20 

IBECAUSE OP ADDRESS MODE 5 

IBECAUSE OP ADDRESS MQOE 7 

IBECAUSE OESt ADDRESS IS > 376 

J BECAUSE OP ADDRESS MQOE 3 

I BRANCH OVER NON KERNEL MODE TESTS 


ISAVE PC OP INSTRUCTION THAT TRAPPED 
I SAVE PSW 
{SET STACK PTR 

I ERROR I AN INSTRUCTION THAT WAS NOT 
jSUPPESEO TO TRAP TRAPPED 
JR0 CONTAINS PC, R2 CONTAINS PSW 
JEXIT TEST 

JSE A STACK OVERFLOW 

I SET ERROR VECTOR TO 41 
I SET STACK PTR AT 376 


I SETS BIT 0 IN R0 


OZQKC^C BASIC U FAMILY INSTRUCTION EXER, 
OZQKCD 

014540 006302 

014542 105226 

014544 006302 

014546 060746 

014550 006302 

014552 000004 

0145*54 006302 

014556 004767 000014 

014562 006302 

014564 050666 177776 

014570 


314572 

014574 


014600 

014636 


050200 

000002 


014576 000207 


012 7 37 

000002 


45 i 


4051 


000022 003020 415 | 
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&SL 

R2 

1 SWIFT INDICATOR BIT 

I NCB 

(SP)* 

J SETS BIT i IN R2 

asl 

R2 


ADO 

PC»«<SP) 

1 SETS BJT 2 IN R0 

asl 

R2 


IOT 


1 SETS BIT 3 IN R3 

ASL 

R2 


USR 

PC, 425 

1 SETS BIT 4 IN R3 

ASL 

R2 

1 NOTE | U/05 WITHOUT 
1 DOES NOf SET BIT 4, 

BIS 

SP7-2 ( SP ) 

JSETS BIT 5 IN R0 

BR 

5$ 


1 WILL 

TRAP HERE ON 

OVERFLOW TRAP 

BIS 

R27R0 

1 SET APPROPRIATE bit 

RTI 


IRETURN PROM TRAP 

RTS 

PC 


MOV 

#IQTVEC+2i 

0# I QT VEC 

RTI 




014610 

014614 

014616 

014620 

014622 

014626 

014630 

014634 

014636 


014640 

014644 

014646 

014650 

314652 

014656 

014660 

014664 

014672 


012736 

022700 


JCWECK that above insruchqns DIO trap 


001407 

105737 

001003 

022700 

001401 

104400 


012736 

012746 


010746 

062716 

000002 

012706 

312737 

104000 


014254 

000034 


9Si 

5051 

5151 


5251 


MOV 

CMP 

.WORD 

REQ 

TSTB 

BNE 

CMP 

8E9 

hlt 


JEXIT ROUTINE 


6Si 

7Sl 


000500 

000006 000024 


MqV 

MOV 

.WORD 

MOV 

ADD 

RTI 

MOV 

MOV 

SCOPE 


#SiKPTR,SP 

(PC)+,R0 

0 

65 

RJKOPT-.CP 

52? 

#34,RJJ 

65 


PKpTRiSP 

(PCJ*,»<sp) 

0 

pcr-(SP) 

#6 7 ( $P ) 


I SET STACK PTR 

I EACH INSTRUCTION SET A BIT IN R0 
ICONTAINS check word 

|R0i 77 If 48 OR 45.14 IF 09,34 IF 20 
JCWECK IP U/05 

1 branch If not an u/05 

I USE ECO KDUAL00005 CHECK WORD 


ISPT kernel stack p tr 
}PUSH OLD PSW ONTO STACK 

ICONTAINS saved psw 

I PUSH CURRENT PC ONTO STACK 
J ADD OFFSET 


iSTKPTR, SP } SET STACK PTR 

#E3RVEC*2,P#ERRVEC 


014674 012737 000002 001114 


314732 

010731 



MOV 

PC T R1 

314704 

012702 

015024 


MQV 

#5S,R0 

314710 

063732 

001034 


ADD 

»#SiAPT0R,R2 

314714 

122737 

000004 

014254 

CMPB 

#4 APFQPT , CP 

314722 

303402 



BLE 

11? 

014724 

362702 

000036 


ADD 

#6S»9S,R2 

314730 

132737 

000040 

814295 USI 

bits 

#40 , PPOPT", CP*1 

314736 

001402 



BEQ 

, *6 


_ _ . . .... TRAP (TO LOCATION 10) 

#2»*#SCOPEQ I LIMIT TO ? w O ITERATIONS 
POINTER 

“ “ ' INSTRUCTION TABLE 


ICHECK THAT ALL Ri^ERVED_INSTRUCT IONS 
RESTRP | MOV 

J SET SCOPE 

f GET ADDRESS OR RESERVED 


1 adjust table address if 11/20, u/05 

I55U1/45, li/40 TABLE, 4«*U/35 
111/20 TABLE 

JCWECK IP U/45 FLOATING POINT IS AVAIU, 
I BRANCH if NOT AVAILABLE 
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014740 

005067 

000110 



CLR 

501 

(SET TABLE TERMINATOR AT CROUP 7 

014744 

012737 

015002 

900010 


MOV 

#4$ , PpRESVEC 

1 SET RESERVED INSTRUCTION TRAP 

014752 

063737 

001004 

000010 


ADO 

mfactqr»**resvec 

014760 

012203 



IS) 

MOV 

(R2)*|R3 

(GET FIRST RESERVED INSTRUCTION 

014762 

001454 




BEQ 

73 

(0 terminates the table 

014764 

012204 




MOV 

CR2)*«R4 

(CEf LAST RESERVED INSTRUCTION IN GROUP 

014766 

010317 



2$ 1 

MQV 

R3» (PC) 

(EXECUTE RESERVED INSTRUCTION 

014770 

000000 



3$ f 

.WORD 

0 

(CONTAIN! RESERVED INSTRUCTION 

014772 

104400 




hly 


(ERROR! INSTRUCTION IN R3 

014774 

104400 




MLT 


1(2$) ABOVE FAILED TO CAUSE A 

014776 

104400 




hly 


(RESERVED INSTRUCTION TRAP 

015000 

000405 




BR 

41$ 


015002 

012716 

015014 


4$ | 

MOV 

#41$ , ( SP ) 

iaouust return PC 

015006 

063716 

001004 



ADD 

•#FACTPR,(SP) 

(TO RETURN TO 41$ 

015012 

000002 




RT! 


(RETURN to 411 

015014 

020304 



41SI 

CMP 

R3TR4 

(HAS GROUP OF RESERVED INSTRUCTIONS 

015016 

001760 




SEQ 

1$ 

(BEEN EXECUTED 

015020 

005203 




INC 

R3 

(INCREMENT THIS RESERVED INSTRUCTION 

015022 

000761 




BR 

2$ 

(TO NEXT ONE AND EXECUTE 





(TABLE 

OF 11/40 

, 11/49 RESERVED 

INSTRUCTIONS (0 TERMINATES THE TABLE) 

015024 

000007 



51 i 

7 


(GROUP l 

015026 

000077 




77 


J " 

015030 

000210 




210 


(GROUP 2 

015032 

000227 




227 


J " 

015034 

007000 




7000 


(GROUP 3 

015036 

007777 




7777 


( M 

015040 

075040 




75040 


(Group 4 

015042 

076777 




76777 


( * 

015044 

106400 




106400 


(GROUP 5 

015046 

106477 




106477 


» " 

015090 

106700 




106700 


(GRqUP 6 

015052 

107777 




107777 


1 M 

015054 

170000 



50$ 1 

170000 


(GRqUP 7 FLOATING rqINt 

015056 

177777 




177777 


( » INSTRUCTIONS 

015060 

000000 




0 


(0 TERMINATES THE TABLE 





) TABLr 

OF 11/05 

, 11/20 RESERVED 

INSTRUCTIONS (0 TERMINATES THE TABLf) 

015062 

000006 



6$i 

6 


(GROUP 1 

015064 

000077 




77 


J ,f 

015066 

000210 




210 


(GROUP 2 

015070 

000237 




237 


J « V 

015072 

006400 




6400 


(Group 3 

015074 

007777 




7777 


> " 3 

015076 

070000 




70000 


(Group 4 

015100 

077777 




77777 


j 

015102 

106400 




106400 


I GRqUP 5 

015104 

107777 




107777 


( " 

015106 

170000 




170000 


(GROUP 6 

015110 

177777 




177777 


i » 

015112 

000000 




0 


(0 terminates the table 

015114 

012737 

000012 

000010 

7$i 

MOV 

#RESVEC+2,*#RESVEC 1 RESTORE RESERVED TRAP TO HALT , 

015122 

104000 




SCOPE 






(CHECK TwaT all bits jn the processor status word c PSW I CAN Be Set and 
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015124 

013767 

177776 000192 

(CLEARED, 
PSWCHKI MOV 

P#PSW,3$ 

015132 

005037 

177776 

CLR 

P#PSW 

015136 

005046 


CL* 

.(SP) 

■015140 

010746 


MOV 

PCi.(SP) 

015142 

062716 

000006 

ADD 

#67(SP) 

015146 

000002 


RT 1 



( SAVE STATUS 
) CLEAR MODS BITS IN PSW 
J ROUTINE TO CLEAR 
JSTATUS WORD (PSW) 

( CLEAR PSW 4 EXECUTE FOLLOWING INST 


015150 

013746 

000016 


MOV 

P#TB J TVEC + 2 » 9 

(SP) 

015154 

012704 

177776 


MOV 

#PSW,R4 

(LOAD ADDRESS OF PSW INTO R4 

015160 

000250 



CLN 



015162 

005714 



TST 

(R4) 

(CHECK THAT PSW WAS CLEARED 

015164 

001401 



BEQ 



015166 

104400 



HLT 


(ERROR! PSW FAILED TO CLEAR 

015170 

113700 

014254 


MQVB 

S>#OPT,GP,R0 

iGET cp type 

015174 

016000 

016964 


MOV 

PSWBIT(0),R0 

(GIT BIT MASK FOR TEST RbpTHOSE BITS IN 







(THE PSW WHICH CAN BE SET/CLEARED’, 

015200 

005737 

014294 


TST 

SMKOPT'CP 

(CHECK IF MEM MGMT IS AVAILABLE 

015204 

100002 



BPL 

10 

(BRANCH IF NOT AVAILABLE 

015206 

092700 

170000 


BIS 

#170000, R0 

(SET BITS f 5*12 IF MEM MGMT 

015212 

012702 

000001 

10$ t 

MOV 

#liR2 

(R2 ■ TEST BIT 

015216 

030200 


IS t 

BIT 

R2fR0 

(CHECK IF BIT CAN BE SET/CLEARED 

015220 

001423 



BEQ 

2$ 


015222 

005037 

000016 


CLR 

S#T8ITVEC*2 


015226 

030227 

000020 


BIT 

R2i#20 

(CHECK IF TEST WILL SET 'V BIT 

015232 

001403 



BEQ 

20$ 


015234 

012737 

000002 200016 


MQV 

#RTI,P#TBITVEC+2|SET RT I INTO RETURN 

015242 

005014 


20$ ! 

CLR 

(R3> 

(CLEAR PSW 

015244 

050214 



BIS 

R2» (R4) 

(SET R2 INTO PSW 

015246 

011403 



MOV 

(R!)i«3 

(GET BIT 

015250 

020203 



CMP 

R27R3 

(CHECK THAT ijT WAS S|T IN PSW 

015252 

001401 



BEQ 



015254 

104400 



HLT 


(ERROR! 9 If IN R2 FAILED TO SET IN PSW 

015256 

000244 



CLZ 


(CLEAR Z BIT 

015260 

040214 



9IC 

R2, (R4 ) 

(CLEAR BIT IN PSW 

015262 

011403 



MOV 

( R4 ) , R3 

(GET PSW RESULT 

015264 

001401 



BEQ 

2$ 

(BRANCH IF BIC ABOVE CLEARED BIT IN PSW 

015266 

104400 



HLT 


(ERROR! SIT IN R2 FAILED TO CLEAR IN PSW 

015270 

006302 


2$i 

asl 

R2 

JSWJFT test BIT 

015272 

103351 



bcc 

1$ 

(BRANCH IF ALL BITS NOT TESTED 

015274 

005014 



CLR 

(R4) 

(CLEAR STATUS 

015276 

012637 

000016 


MOV 

(SP)*,##TBlTVEC+2 (RESTORE T BIT RETURN 

015302 

012746 



MOV 

(P5)*,*(SP) 

(PUSH ORIGINAL STATUS ON STACK 

015304 

000000 


31| 

.WORD 

0 

(CONTAINS ORIGINAL PSW 

015306 

010746 



MOV 

pst.(SP) 

(SET RETURN PC 

015310 

062716 

000006 


ADD 

#6i (SP) 


015314 

000002 



RT! 


(RETURN 

015316 

104000 


4$ i 

SCOPE 



015320 

013704 

177776 


MQV 

•#PSW, R4 

(SAVE PSW IN R4 

015324 

010446 



MOv 

R4|«(SP) 

(PUSH R4 ONTO STACK 

015326 

112716 

000300 


MQVB 

#300, (SP) 

(SET PRIORITY LEVEL 6 AND 

015332 

010746 



MOV 

PCi«(SP> 

ICL'EAR H* BIT ANO EXECUTE 

015334 

062716 

000006 


ADD 

#6j (SP) 

1 INSTRUCTION FOLLOWING RTI 
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015340 

000002 


RTI 





i check 

THAf ALU 

bits jn the 

CURRENT stack ptr CAN Be set/cleareo 

015342 

010603 

chksp i 

MOV 

SP j R3 

J SAVE STAC* PTR 

015344 

000257 


CCC 



015346 

112706 

000377 

movb 

0377, SP 

I scr STACK PTR f »1 

1 015352 

006006 

isi 

RQR 

SP 

1 ROTATE 0 BIT THROUGH ALL BIT 

m 015354 

103776 


BC8 

IS 

1 8 X T POSITIONS 

015356 

005206 


INC 

SP 

J SHOULD INCREMENT SP TO 0 

015360 

001403 


BEQ 

2% 


015362 

010602 


MOV 

SP7R2 

ISAVE ERROR STACK PTR 

015364 

010306 


MOV 

R37SP 

J SET STACK PTR FOR TRAP 

015366 

104400 


HUT 


lERRORt 

015370 

010306 

2SI 

MOV 

R37SP 

^RESTORE ORlflINAL STACK PTR 



1 CHECK 

BYTE OPERATIONS USING 

THE STACK 

015372 

010600 

SPCHKi 

MOV 

SPTR0 

J SAVE STACK PTR 

015374 

010003 


MOV 

R07R3 


015376 

005043 


CLR 

-(*3) 


015400 

112746 

177777 

MOVB 

#*1,-(SP> 

MSP) ■ 377 

015404 

022713 

000377 

CMP 

#377, (R3> 

JCHECK that ONCY EVEN BYTE WAS AFFECTED 

015410 

001002 


BNE 

IS 


015412 

020306 


CMP 

R37SP 

I CHECK AUTO-DEO 

015414 

001401 


BEO 



015416 

104400 

lit 

HUT 



015420 

105226 


INCB 

(SP)* 


015422 

005723 


TST 

<R3>* 

ICHECK RESQLT 

015424 

001002 


BNE 

2S 


015426 

020006 


CMP 

R07SP 

ICHECK AUTO-INC 

015430 

001401 


BEQ 

,*4 


015432 

104400 

2$i 

HLT 



015434 

005143 


COM 

• (R3> 

1 < R3 >*177777 

015436 

144613 


BICB 

• ( SP > , ( R3 ) 


015440 

022713 

177400 

CMP 

#177400, (R3) 

ICHECK RESULT 

^r- 015444 

001002 


BNE 

3S 


M 015446 

020603 


CMP 

SP7R3 


1 015450 

001401 


BEQ 

,♦3 


015452 

104400 

3I| 

HIT 



015454 

132627 

000377 

B I TB 

(SP )*, 0377 


015460 

001002 


BNE 

4S 


015462 

020600 


CMP 

SP7R0 


015464 

001401 


BEQ 



015466 

104400 

45i 

HUT 



015470 

012746 

000001 

MQV 

#17*(SP> 


015474 

062706 

000002 

ADD 

#2lSP 


015500 

012702 

177401 

MOV 

#177401,R2 


015504 

120246 


CMPB 

R27*(SP> 


015906 

001004 


BNE 

5$ 


015510 

122602 


CMPB 

( SR ) *, R2 



( 
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015512 

001002 



BNE 

5$ 



015514 

020006 



CMP 

R0TSP 



015516 

001401 



BEQ 

, *4 



015520 

104400 


5$ | 

HLT 




015522 

010446 



MOV 

R4|*(SP) 

1 RESTORE ORIGINAL PSW to STACK 


015524 

010746 



MOV 

PC,"«(SP) 



015526 

062716 

000006 


ADO 

#6 | ( SP ) 



015532 

000002 



RT! 




015534 

104000 



SCOPE 



f 




ICHECK 

THAT 'Cl BIT SETS/CL 

EARS PROPERLY 

L 

015536 

012727 

177776 

CBITI 

MOV 

#177776, (PC 

)* | LOAD CONSTANT 

-• 

015542 

000000 


IS I 

.WORD 

0 



015544 

010700 



MOV 

pc;r0 

IGET CURRENT PO 


015546 

162700 

000004 


SUB 

#4fR0 

J POINT R0 TO IS ABOVE 


015552 

005520 


2Si 

ADC 

<R0>* 

I ADD id* BIT TO 1* ABOVE 


015554 

006340 



ASL 

i* ( R0 ) 

J SHI FT IS 


015556 

102375 



BVC 

2* 

lUNTIL IV# BIT SETS 


015560 

022767 

077776 177754 


CMP 

#077776,1* 

ICHECK RESULT 


015566 

001401 



BEQ 

,#4 



015570 

104400 



HLT 


1 ERROR | INCORRECT RESULT JN IS ABOVE 








I R0f address of data 





jcheck 

That CONDITION CODES 

are set propfrly when a number (current pc> 





IANO THAT NUMBER *4 ARE COMPARED, AND VISE VERSA. 


015572 

010700 


CMPNI 

MQV 

PC, R0 

1 GET CURRENT PC 


015574 

010002 



MOV 

R0, R2 

J SAVE IN R? 


015576 

005202 



INC 

R2 

1 MAKE R2 ■ R0*l 


015600 

000277 



SCO 




015602 

000251 



♦CLCJCLN 

ICLEAR CAN BITS 


019604 

020002 



CMP 

R0',R2 

1 COMPARE # WITH #*4 


015606 

103003 



BCC 

IS 

ICARRY BIT SHOULD SET 


015610 

102402 



BVS 

IS 

|V BIT SHOULD CUEAR 


015612 

001401 



BEQ 

IS 

jZ bit should clear 


015614 

100401 



BMJ 

,4.4 

IN BIT SHOULD SET 


015616 

104400 


is i 

HLT 


j error j compare # with #*i failed to 








j SET CONDITION CODES JN PSW CORRECTLY 


015620 

000277 



see 


i set condition codes in psw 


015622 

120200 



CMPB 

R2| R0 

ICOMPARE #U WITH # 


015624 

103403 



BCS 

2* 

ic bit should clear 


015626 

102402 



BVS 

21 

IV sit should clear 


015630 

001401 



BEQ 

2S 

jl BJT SHOULD CLEAR 

ft ’ 

019632 

100001: 



BPL 


IN SIT SHOL’D CUEAR 


015634 

104400 


2$i 

HLT 


1 ERROR l COMPARE #*1 WJTH # FAILED TO SET 








j CONDITION CODES IN PSW CORRECTLY 





12* NOP 

(240) 

INSTRUCTIONS 

follow, these nops MAY 





IBE CHANGES TO 

TEST COOS IP 

THE need ARISES. THE TEST CODE. SHOULD 





IBE POSITION JNPEPiNOENT AND SHOULD RUN WHIN RELOCATED BY THE PROGRAM* 


015636 

000240 



NOP 




015640 

000240 



NOP 




015642 

000240 



NQP 




015644 

000240 



NOP 
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015646 

015650 

015652 

015654 

015656 

015660 

015662 

015664 

015666 

015670 

015672 

015674 

015676 

015700 

015702 

015704 

015706 

015710 

015712 

015714 

015716 


000240 

000240 

000240 

000240 

000240 

000240 

000240 

000240 

000240 

000240 

000240 

000240 

000240 

000240 

000240 

000240 

000240 

000240 

000240 

000240 

104000 


NOP 

NOP 

NOP 

NOP 

NQP 

NOP 

NOP 

NOP 

NQP 

NQP 

NQP 

NOP 

NOP 

NQP 

NOP 

NQP 

NQP 

NOP 

NOP 

NQP 

SCOPE 


015720 010702 

015722 062702 000012 

015726 012707 001132 

015732 000240 


MOV PC7R2 

ADO #12| R2 

MOV #RgUOt?,PC 150 RELOCATE PROGRAM CODE 

NOP I PROGRAM RETURNS H£RE*2 

13333333333333 LAST ADDRESS OF CODE TO BE RELOCATED 33333333333 


1 CRECK TTY INTERRUPT, 


015734 

003037 

001004 


TTYCHKI 

CLR 

p#FACTOR 


015740 

010701 




MQV 

PC7R1 


015742 

032737 

000100 

177564 


BIT 

M00t»0 TPS 

(CHECK IF TTY IS READY 

015750 

001374 




BNE 

,*e 


015752 

012737 

016026 

003064 


MOV 

#3S|P#TPVEC 

(SET TTY INTERRUPT VECTOR 
(PRIORITY LEVEL 4 ON INTERRUPT 

015760 

012737 

000200 

000066 


MOV 

#200»*#TPVEC*2 

015766 

012767 

016064 

000064 


MOV 

#NULLS,MSG 

(ADDRESS OP MESSAGE TO BE TYPPED 

015774 

117737 

000060 

177566 


MQV3 

»MSG,P#TPB 

(TYPE FIRST CHARACTER OF MESSAGE 

016002 

105737 

177564 



TSTB 

PPlPS 


016006 

100375 




BPL 

,«o 


016010 

006237 

177564 



ASR 

R#TPS 

(SET IE BIT IN TTY CSR REG 

016014 

000001 




wait 


(WAIT FOR FIRST INTERRUPT 

016016 

000424 




8R 

KWH 


016020 

006337 

177564 


2S i 

ASL 

»#TPS 

(CLEAR IE BIT 

016024 

000002 




RTI 



016026 

122777 

000012 

000024 

3S| 

Cmpb 

#12|PM5G 

(Branch If Char ;S not <lf» 

016034 

001004 




BNE 

4S 

016036 

004767 

163170 



JSR 

PC7, PRINT 

(PRINT MESSAGE BF.GINING AT FOLLOWING APRS 

016042 

001744 




SCRLF 



016044 

000404 




BR 

55 


016046 

117737 

000006 

177566 

4$i 

MQVB 

*MSGi»#TPB 

(TYPE CHARACTER 

016054 

001761 




BEQ 

2$ 

(BRANCH IF TERMINATOR 

016056 

005227 



5$i 

INC 

(PC>4 

(SET MSG TO NEXT CHAR ADDRESS 
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016060 

000000 



MSG 1 

.WORD 

0 

016062 

000002 




RT! 


016064 

020015 

000015 


NULLS? 

. ASC 1 2 

<15X40><15> 






.EVEN 






(ROUTINE TO TURN ON KWU»L LINE 

016070 

012737 

000002 

303036 

KWllI 

MOV 

#RTj,f»#£RRVEC*2 

016076 

012737 

016232 

002130 


MOV 

P4*,P#LKVEC 

016104 

012737 

000300 

303102 


MOV 

F300|P#LKVEC+2 

016112 

000262 




SEV 


016114 

052737 

000100 

177546 


SIS 

#100#P#LKS 

016122 

102446 




BVS 

5$ 


016124 

132737 

000020 

177776 


01TB 

#2^P#PSW 

016132 

001042 




BNE 

5S 

016134 

112737 

000300 

177776 


MQVB 

#300,P#PSW 

016142 

013727 

000064 



MQV 

ppTPVEC, (PC)* 

016146 

000000 



1S» 

.WORD 

TSTB 

3 

016150 

105737 

177564 


PSIYPS 

016154 

100375 




BPL 

i ** 

016156 

012737 

016202 

003064 


MOV 

#2S , PpTPVEO 

016164 

005227 




INC 

<PK>± 

016166 

000000 




.WORD 

3 

016170 

012737 

016206 

000100 


MOV 

43$ e P#LKVEC 

016176 

105037 

177776 



CIRB 

P#PSW 

016202 

104400 



2$i 

HUT 






(BEFORE THE LINE CLOCK OR BOTH 

016204 

000415 




BR 

5? 

016206 

016737 

177734 

000064 

3*1 

MOV 

1S#P*TPVEC 

016214 

012737 

316232 

000100 


MOV 

F4*S j PPLKVEC 

016222 

105037 

177776 



CLRB 

PPPSW 

016226 

012716 

016240 



MOV 

#53i(SP) 

016232 

005267 

162540 


4*1 

INS 

TICKS 

016236 

000002 




RTI 

016240 

005037 

000006 


5Si 

OUR 

•#ERRVEC*2 

016244 

000240 



ENOl 

NOP 


016246 

005037 

177776 


EN81I 

ClR 

mpsw 

016252 

005046 




CLP 

»(SP) 

016254 

012746 

016262 



MQV 

#,46i«(SP) 

016260 

000002 




RT! 

016262 

312706 

000600 



MOV 

PKPTR,SP 

016266 

032737 

000100 

177564 


BIT 

P100I PiTPS 

016274 

001374 




BNE 

,«6 


I CONTA INS ADDRESS OF CHAR TO BE TYPED 
( RETURN 


CLOCK IF AVAILABLE 

1 SET UP DIRECT RTJ ON TRAP 
J'LOAD INTERRUPT VECTOR 
1 SET PRIPRffY LEVEL 6 ON JNT. 

I SET TIME OUT INDICATOR 
(SET INTERRUPT ENABLE 
I SKIP PRIORITY ARBITRATION TEST 
1 BELOW IF NO KWli*L 

iroutjne to check priority arbitration logic 

J THE BELOW TEST WILL INHIBIT INTERRUPTS on level 6 ANP ABOVE (LOCKING 
10UT THE LINE CLOCK) AND THEN SET UP THE TTY TO INTERRUPT . NEXT THE 
(PRIORITY LEVEL WILL BE SET TO 0 ALLOWING INTERRUPTS JN WHICH CASE . 

(THE LINE CLOCK (AT LEVEL 4) SHOULD INTERRUPT BEFORE THE TTY (AT LEVEL 4) 

I CHECk if / T' BIT Is SET 
IDO NOT DO TEST IF SET 
(SET PRIORITY LEVEL * 6 
(SAVE TTY INTERRUPT VECTOR 
/CONTAINS CURRENT TTY VECTOR 
/CHECK IF READY 
/WAIT FOR TTY TO BECOME READY 
/SET NEW VECTOR 

/stall waiting for line clock 

/TO BE READY 
/SET LINE CLOCK VECTOR 
/SET PRIORITY LEVEL 0 
/ERROR! EITHER TTY INTERRUPTED 
D TO INTERRUPT 
/EXIT TEST 
/RESTORE TTY VECTOR 
I SET LINE CLOCK VECTOR 
/RESTORE PRIORITY LEVEL 0 
/SET RETURN ADDRESS TO 5$ BELOW 


/INCREMENT TICK COUNT 
/RETURN 

/RESTORE ERROR TRAP TO HALT AT 6 


ICLEAR MODE BjTS in psw 
(CLEAR PSW 

(GO TO NEXT INST WITH PSW90 

(SET KERNEL STACK PTR (NOT APPLICASLE 

ifor a/20;isy05 cp/ 5) 

(CHECK IF OUTPUT DEVICE IS SUSY 


(IS available 
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016276 

105737 

177570 



TSTB 

MSwR 

lOELETE END 8F PASS TyPE OUT IF Sw7i0 

016302 

100020 




9PL 

IS 

1 BRANCH If SW7 IS down 

016304 

016702 

162470 



MOV 

ICNT.R2 

1 GET PASS COUNT 

016310 

004767 

163014 



JSR 

PC?SFORM0 

ICO TO format routine 

016314 

012702 

001664 



MOV 

#QIG1T8*2,R2 

A GET ASCII VALUES 

016320 

012703 

001702 



MOV 

6PASSES.R3 

|ANO MOVE THEM INTO MESSAGE 

016324 

012223 




MOV 

(R2>*,(R3)* 


016326 

012223 




mqv 

( R2 ) * , < R3 ) 6 


016330 

012737 

001672 

816060 


MOV 

#PASCNT,##MSG 

{PASS MESSAGE APRS TO TELETYPE SERVICE 

016336 

052737 

000100 

177564 


BIS 

#1«0,##TP$ 

1 SET IE BIT 

016344 

012737 

000610 

008024 

1SI 

MOV 

iPQWN, ##PFVEC 

1 ENABLE POWER FAIL TRAP 

016332 

012737 

000340 

008026 


MOV 

#340 , MPFVEC*2 

{PRIORITY 7 ON POWER FAIL 

016360 

003267 

162414 



INC 

I CNT 


016364 

116700 

175664 



MQVB 

QPe ,CP , R0 
PASTAB t R0 ) 1 X CNT 

1 get cp Type 

016370 

026067 

016570 

162482 


CMP 

{CHECK IF END OF TEST 

016376 

001002 




BNE 

21 

{BRANCH IF NOT AT END 

016400 

000167 

000060 



JMP 

DONE 


016404 

016702 

162370 


2Si 

MOV 

I C’lT # R2 

4 GET PASS COUNT 

016410 

006302 




ASL 

R2 


016412 

046002 

016560 



BIC 

CPPASS ( 0 ) , R2 

iLIMlf PASS COUNT TO 0.6 

016416 

003037 

000016 



CLR 

##16 

{CLEAR T BIT TRAP ADDRESS 

016422 

012737 

000040 

001122 


MOV 

#40 , P#SC0PEF4»2 

{SET ITERATION COUNT § 40 

016430 

016216 

016534 



MOV 

PSHTABI2), ISP) 

{PUSH NEXT PASS PSW ON STACK 

016434 

032716 

000020 



BIT 

#28, ISP) 

{WILL IT# SIT 8E SET ON NEXT PASS? 

016440 

001406 




BE9 

3S 

{BRANCH IF NOT 

016442 

012737 

000002 

801122 


MOV 

#27##SC0PEP+2 

{SET ITERATION COUNT « 2 FOR 1 T < BIT 

016450 

016737 

000006 

808016 


MOV 

RTjl, ##16 

{SET IT' BIT TRAP TO RETURN VIA 16 

016456 

012746 

002230 

3Sl 

MOV 

#START2,XSP> 

JRESART PROGRAM AT START? 

016462 

000002 



RTIll 

RTi 


{RESTART PR08RAM AT START2 WITH NEW PSW 
{{FROM TABLE BELOW) NOTE i THE RTI IS 
{CHANGED TO AN RTT IF NOT AN lt/85, 11/20 





1 ROUT I NE TO SET 

UP MEMORY MANAGEMENT TO RELOCATE PROGRAM CODE ABOVE 28K 

016464 

032737 

000100 

177564 

DONE 1 

BIT 

#100,«i#TPS 

{Wait for tty output to finish 

016472 

001374 



bne 

00 E 


016474 

109737 

177564 



TSTB 

##TPS 

{WAIT FOR LAST CHARACTER TO BE PRINTED 

016500 

100375 




BPL 

,«4 

016502 

005027 




CLR 

cpy>* 


016504 

000000 



isi 

.WORD 

0 


016506 

005267 

177772 


2Si 

INC 

is 

{DELAY WAITING FOR TELETYPE TO FINISH 

016512 

001375 




BNE 

2S 

{TYPING CHARACTER BEFORE ISSUING RESET 

016514 

000005 




RESET 



016516 

105737 

177570 



TSTB 

»#SWR 


016522 

100003 




BPL 

3S 


*16524 

004767 

162502 



JSR 

pc;, PRINT 

{PRINT MESSAGE BEGINING AT FOLLOWING ADRS 

016530 

016714 




ENDMSG 



016532 

013702 

000042 


3S t 

MOV 

9#42,R2 

{CHECK DOP/ACUl MONITOR HOOK 

016536 

001404 




BED 

DQNE1 


016540 

004712 



LOGICAL 1 JSR 

PC4(«2) 

{GO TO DOP/ACUl MONITOR VIA 42 

016542 

000240 




NOP 



016544 

000240 




NOP 



016546 

000240 




NQP 



016550 

000137 

002224 


D0NE1I 

JMP 

##START3 

{RESTART PROGRAM 
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1 THE BELOW TABLE REPRESENTS THE 'NEW' PSW SET bY THE PROGRAM ON 

i successive passes', 

inote the below ta le may be modified to cause the program to run 

I uNDER uSER DEFINED PARAMETERS BY PATCHING IN THE DESIRED PASS PARAMETER 
IFOR EXAMPLE TO CAWSE THE PROGRAM TO RUN WITHOUT SETTING THE IT' BIT 
I IN ALL PASSES PATCH OUT THE Iff BIT IN THE TABLE, 

016554 000000 PSWTABI 000000 I ALU 11 fAMJLY CP'S 

016556 000020 000020 


016560 177774 

016562 177774 


ITHE BELOW TABLE IS THE 'BIT MASK! USED TO DETERMINE THE INDEX VALUE 
INEEDED TO SET THE 'NEW' PSW, 

CPPASSI 177774 111/05 

177774 111/20 


016564 000377 

016566 000377 


» THE! BELOW TABLE REPRESENTS THOSE BITS IN THE CP WHICH CAN BE SET/CLEARED 
PSWBITI 000377 111/05 

000377 111/20 


016570 

016572 

016574 

016602 

016610 

016611 

016616 

016624 

016625 

016632 

016640 

016646 

016654 

016662 

016670 

016676 

016704 

016712 

016714 

016722 

016730 


ITHE BELOW TABLE CONTAINS THE # OF PASSES REOUIRED TO COMPLETE TEST 
000002 PASTABl .WORD 2 |il/05 

000002 .WORD 2 111/20 

IMESSAGES 

005015 047514 020127 MSG1I .ASCIZ <15><12>'L0W LIMIT?! 

044514 £44515 037524 

000 

110 043511 028110 MSG2I , ASCIZ i HIGH i JmIT?' 

044514 044515 837524 


000 

015 

052012 

044510 

ILLTESTI , AsClZ 

020123 

042524 

052123 

044440 

053116 

046181 


0421H 

043040 

851117 


030440 

027461 

038064 


030455 

027461 

032464 


050040 

042514 

051581 


020105 

052522 

028116 


041504 

045521 

006533 


000012 

003015 

042040 

058532 

EnOmSGI .ASCIZ 

041513 

042040 

047117 

000105 

000001 



.end 


<i 3 ><i 2 >'THJs test Invalid f 9 r 11/40.11/45 please run 0 Cq k cxi 5 xi*> 


C15X12X D2Qk c DQNE * 
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ADCB2 

004964 

APCB5 

005374 

A0C86 

001063 

AOCB7 

806710 


ADC0 

002524 

ADCl 

003400 

ADC2 

001374 

A0C5 

009202 


ADC6 

009072 

AQC7 

006604 

ADO0 

007376 

ADD1 

807602 


AOfilA 

0X0026 

A0018 

010044 

ADD2 

010432 

AD03 

01X186 


AD06 

01X450 

AD07 

012112 

ASLB1 

003742 

A8LB1A 

084166 


ASCB3 

009364 

ASLB4 

004670 

ASLB6 

006044 

ASLB7 

807006 

AS(J0 

002646 

ASL1 

003554 

ASL3 

00?116 

ASL4 

004466 

I I 

A SI, 6 

005642 

ASL7 

006432 

ASR81 

004036 

ASRB1A 

004092 

1 w 

ASRB? 

004634 

ASSB2A 

004652 

ASRB5 

00»324 

AIRB6 

886162 


ASRB7 

007024 

ASR0 

002674 

ASR1 

003442 

ASR2 

804410 


ASR3 

005X02 

ASR6 

005524 

ASR7 

00X466 

BELL 

80X747 


BlftBl 

0X0220 

B I CB1 A 

010242 

8IC0 

007310 

8 I Cl 

007724 


siea 

0X0522 

9IC3 

011120 

SIC7 

012570 

BINB7 

012336 


BIN1 

010400 

B'lSBt 

010206 

B I S0 

007266 

BJS0A 

007344 


Bin 

0077X2 

BJS2 

010460 

9 1 S2A 

0111562 

B I$7 

012530 


BjTBl 

0X0X76 

BITB2 

010736 

8 1 f 33 

011270 

8JTB6 

011694 


0IU 

007640 

BIT13 » 

020000 

BIT14 * 

040000 

B 1 T 3,55 a 

100000 


0 1 12 

010546 

BJT6 ■ 

000100 

BITS f 

000400 

BPTVECi 

000014 


c s 

000001 

C8IT 

015536 

CC0 

00*340 

cci 

002354 


CCS 

002370 

CCS 

002402 

CC4 

00*416 

CHKSP 

819342 


CLR0 

002442 

CMP81 

010192 

CMPB2 

010722 

CMPB3 

01X302 


CMPN 

015572 

CMP0 

007170 

CMP0A 

007432 

CMPl 

007622 


CMP1A 

007742 

CMP2 

010450 

CMP7 

012046 

COMBI 

804020 


COMB1A 

004200 

CQMB2 

004546 

CQM05 

00?302 

C0MB6 

806H4 


C0M97 

006724 

COM0 

002506 

COM1 

003566 

COM3 

009160 


COMA 

004276 

CQM6 

005510 

C0M7 

006556 

CPCHK 

014204 


CPPASS 

016560 

DBINB7 

012332 

DBIN7 

01*746 

DPATA 

011312 


ddaTab 

011742 

DECB1 

003770 

DECBlA 

001120 

DECB2 

004702 


DECB9 

005442 

QEC86A 

00&214 

0ECB7 

006772 

DEC0 

002966 


DEC1 

003360 

DEC1A 

003630 

DEC2 

004444 

DECS 

009134 


DEC6 

005656 

OEC7 

006450 

DIGITS 

001662 

DIGTAB 

001692 


OISPtAP 

177570 

DONE 

016464 

OONEl 

016550 

EMTVEC« 

000030 


EMU 

0X3724 

EMT1B 

014004 

EMT1C 

013010 

EMTIO 

014022 


END 

0X6244 

ENPMSG 

016714 

ENOl 

016246 

ERROR 

001412 


ERRPC 

00X707 

ERRPC0 

001781 

ERRVEC« 

000004 

FACTOR 

00X084 


FORX0R 

000740 

FPEVEC® 

000244 

frstad 

001010 

FRSTME 

00X01? 

f 

GSYST 

003X60 

HIT ■ 

104400 

1 C NT 

001000 

ILLTES 

016625 


INCB1 

003704 

INC82 

004776 

INCB3 

00^334 

INCS6 

006026 

<c^ 

IN6B6A 

006176 

INCB7 

006756 

INC0 

002606 

INC! 

003474 

INC3 

005X70 

INC4 

004326 

INC6 

005620 

INC7 

006616 

m j 

IOfVEC« 

000020 

IOTX 

013624 

IOT1A 

01^632 

iotib 

013646 


UMP1 

013052 

JMP3 

013122 

JMP4 

013160 

JMP5 

013224 


JMP6 

0X3244 

JMP7 

013302 

JSRTST 

013306 

JSR1 

813370 


JSR1A 

013372 

JSR3 

013496 

JSR3A 

013460 

JSR4 

013534 


JSR4A 

013536 

JSR6A 

013970 

KPTR » 

000600 

KW11 

216070 


LK8 a 

177546 

LKVEC » 

008100 

L05ICA 

016540 

LMB a 

X77516 


LP8 w 

177514 

LSTMEM 

00?140 

MMVEC * 

00- 250 

MOVB1 

810126 


MOV0 

007120 

MQV0A 

007150 

MOV1 

012012 

MQV7 

8120X6 


MSG 

016060 

MS51 

016574 

MS02 

016611 

N a 

000010 


NEGBl 

003754 

NECB4 

004726 

NEGB6 

00U32 

NEG07 

007040 


NEG0 

002626 

NEC1 

003620 

NEG2 

004350 

NEG9 

805146 


NEG6 

005544 

NE57 

009524 

NULL • 

001000 

NULLS 

016064 


OAERR 

012616 

OPT , CP 

014254 

DVFLW 

013332 

PASCNT 

00X672 


PASSES 

00X702 

PASTAS 

016570 

PC a 

X000007 

PQWN 

000610 

v J 
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PFAIL 

000656 

PFVEC ■ 

000024 

P I RQ 1 

177772 

PJRVECa 

008240 


PRTY4 « 

000200 

PRTY6 S 

000300 

PRTY7 a 

000340 

PSW * 

X77776 


PSWBIT 

016564 

PSUCHK 

015124 

pswtab 

012554 

PUP 

000620 


RECD 

001792 

RELOC 

001132 

RELR1 

801006 

REL0 

002272 


RELl 

006302 

REL2 

012274 

REL3 

014306 

RESTRP 

014674 


RESVECf 

000010 

RETPC 

001230 

RQLB1 

003716 

R0LB2 

00*620 


R0LB3 

005410 

R0LB6 

00H46 

ROLB6A 

009242 

ROL87 

007056 


ROL0 

002660 

ROH 

003414 

ROL1A 

004426 

R0L3 

0052X6 


R0L4 

004424 

RQL6 

005474 

R0L7 

006634 

RQRB1 

004004 


RORB1A 

004074 

RQR84 

004602 

R0RB5 

003352 

RQRB6 

004100 

4 \ 

RORB7 

006742 

RQR0 

002544 

PORI 

003344 

PQR1A 

003496 


RQR2 

004312 

RQR5 

005070 

R0R6 

005564 

PQP7 

006506 

MTU 

016462 

R0 8X008000 

R1 s: 

X000001 

R10 ■! 

K000000 

Rli «X000001 

R12 1X000002 

MIS s: 

X000003 

R14 4X000004 


R15 *%000005 

R2 1X000002 

P3 SX000083 

R4 8X000004 


R5 PX000085 

SBCB1 

003730 

SBCB3 

009430 

SBCB4 

0047X4 


SBCB6 

006002 

SBCB7 

006670 

SBC0 

00*710 

SBC1 

803510 


SBC1A 

003526 

SBC5 

005230 

S8C6 

005600 

SBC7 

0064X2 


SBIN07 

012322 

SBIN7 

011744 

SCOPE a 

104000 

SCDPEA 

00X016 


SCOPES 

00X046 

SCOPEC 

00X102 

SCOPED 

00X114 

SCOPEE 

00X126 


SCOPEF 

00X120 

SOATA 

011310 

SDATAB 

01^740 

SLR « 

X77774 


SP 1X000006 

SPCHK 

015372 

5R0 « 

177972 

START 

002066 


START1 

002160 

START2 

002230 

STARTS 

002224 

STATUS 

801714 


STKPTRf 

000500 

SijB0 

007136 

Su81 

007660 

SuBlA 

SQB3 

007746 


SU81B 

010002 

3Q82 

010476 

SUS2A 

010616 

01X032 


SUB3A 

01X094 

SUB6 

011470 

SU87 

01*066 

SWAB0 

802726 


SWABl 

004134 

SWAB2 

004340 

SWAB4 

003760 

SWA86 

006226 


SWAB7 

006540 

SWR i 

177570 

T * 

000020 

TBITVEa 

0000X4 


TICKS 

000776 

tkb i 

177562 

TKS f 

177960 

TPB a 

X77566 


TPS a 

177564 

TPVEC s 

000064 

TRAPVEi 

00W4 

TRAPl 

014112 


TRAP1C 

014136 

TRTVECi 

000014 

TStBl 

00*146 

TSTB2 

804736 


TSTB2A 

004746 

TSTB6 

005754 

TST0 

002464 

TST1 

003604 


TST2 

004266 

TST6 

006256 

TTYCHK 

015734 

UBM6 

006262 


UBREAKS 

177770 

U87 

01X754 

UWM6 

005450 

UWM7 

006332 


UW7 

006336 

V f 

000002 

2 * 

000004 

SCRLF 

801744 


IFlLLS 00X002 SFORM0 

.PRINT 001232 , * 

ERRORS DETECTED? 0/2 

♦DZQKCDiDZQKCB/SOL*OZQKCQ 
RUNaTlMEl 12 21 0 SECONDS 
CORE USED? 7K 

001330 

016732 

srestr’ 

000240 

SSAVR 

0002X4 

c 



